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Preface 


Computers have countless practical applications in business, 
science, education, home finance and many other fields. But 
there's no reason why they can't be used for fun and games too. 

This book is a collection of fun and helpful programs. They've 
provided me with hours of entertainment, and I hope they can do 
the same for you. Some (Coin Flipper, Craps, Hangman, for 
example) are fairly standard games. Others (Money Mad, Crops, 
Freebish!) are more unique. Some (Favorite Song, Surprise Poem) 
aren't even games, but computerized gags: you'll just have to run 
the programs to find out what they do! 

For each program, I've given two complete listings. One is in 
standard BASIC, which can be run on most home computers either 
directly or with only minor changes. The second set of listings is in 
the abbreviated BASIC used in Radio Shack's Level I TRS-80 
computer. 

Unfortunately, there isn't much standardization in graphics 
generation. For this reason none of the games in this book use 
graphics. You can, however always program in your own graphics. 

Some of the programs in this book are quite simple, or based 
on luck. Others can be quite challenging to play. Some are designed 
to help you. All are designed for fun. [hope you enjoy them. 


Delton T. Horn 


Chapter 1 
One-Player Games 


This chapter contains an assortment of games which pit a single 
player against the computer. They range from the familiar (Craps 
and Hangman) to the bizarre (Freebish!), and from games of luck 
(Craps), through games of simple logic (High/Low) and games of 
strategy and choices (Crops and Galactic Search). I hope you find 
them fun and challenging. Feel free to program in any variations 
you might think of. 


Craps 


Just in case you're not familiar with the game of Craps, let's 
discuss how it’s played. You make a bet (step 15) and roll a pair of 
dice (steps 85 - 120). If you roll two one’s (Snake eyes, steps 25 & 
160) or two six’s (Boxcars, steps 30 & 175) on your first roll, you 
lose. On the other hand, if the total of the dice on your first roll 
equals 7 or 11 (steps 35, 40 & 125), you win. Any other total is 
recorded as your point and you roll again (steps 45 & 50). 

You keep rolling until you match your point (steps 65 & 125) or 
get 7 or 11 for a total (steps 70, 75 & 185). Matching your point 
wins, but getting a 7 or 11 on any but the first roll loses. 

The computer uses a random number generator to simulate 
rolling the dice (steps 95 - 110): each of the dice can be from 1 to 6, 
so the totals can be from 2 to 12. The computer checks for wins and. 
losses, and keeps tabs on your bets if you play more than one round. 

Of course this is a game of pure chance so it does not take skill 
or strategy to play. Consequently, it won't be as entertaining as 
many of the other games in this book. But the program is simple and 
fun, and it's worth running a few times just for kicks. See Fig. 1-1 
for the flowchart. 


Standard BASIC 


10 PRINT"LET'S SHOOT SOME CRAPS, PAL!”: PRINT 
12 LET F=0 

14 PRINT“WHAT IS YOUR BET”: 

16 INPUT E 

20 GOSUB 85 

25 IF C=2 THEN GOTO 160 

30 IF C=12 THEN GOTO 175 

35 IF C=7 THEN GOTO 125 

40 IF C=11 THEN GOTO 125 

45 LET D=C 

50 PRINT"YOUR POINT IS”;D 

55 GOSUB 85 

60 PRINT "YOUR POINT WAS”;D 

63 GOSUB 120 

67 IF C=D THEN GOTO 125 

70 IF С=7 THEN GOTO 185 

75 IF C=11 THEN GOTO 185 

80 GOTO 55 

85 PRINT"PRESS ‘ENTER’ TO ROLL" 
87 INPUT A$ 


RUN 


| ROLL DICE 


ADD BET 


WIN? TOWINNINGS 


SUBTRACT BET 
FROM WINNINGS 


Fig. 1-1. Craps flowchart. 
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140 
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FOR X=1T0200:NEXT X 

LET A=INT(RND(O)*6)+1 

LET B-INT(RND(0)*6)--1 

PRINT: PRINT“ ",'**** ”; A, “YOUR ROLL',B;" ***" 
LET C=A+B 
PRINT:PRINT:PRINT"YOU JUST ROLLED ”;С 
FOR X=1T0333:NEXT X: RETURN 
PRINT“ ”, “YOU WIN!” 

LET F=F+E 

IF F<0 THEN GOTO 195 
PRINT“SO FAR YOU'VE WON $”;Е 
LET Y=1:LET N=0 

PRINT"WANT TO PLAY AGAIN"; 
INPUT G 

IF C=1 THEN GOTO 15 

END 

PRINT" SNAKE EYES!" 

GOSUB 120 

PRINT" ","YOU LOSE!” 

LET Е=Е-Е 

GOTO 135 

PRINT"BOX CARS!" 

GOTO 162 

PRINT"YOU CRAPPED ОПТ!” 
GOTO 162 

PRINT“SO FAR YOU'VE LOST $”; F 
GOTO 145 


TRS-80 BASIC 


P."LET'S SHOOT SOME CRAPS,PAL!”:P.:F=0 

IN. “WHAT'S YOUR BET"; E:GOS.70:IF C=2 G.135 

IF С=12 G.145 

IF С=7 G.105 

IF C=11 6.105 

D=C:P.“YOUR POINT IS ”;D 

GOS.70:P."YOUR POINT WAS ”;D:GOS.100:IFC=D б. 105 
IF C=7 G. 150 

IF C=11 С. 150 

G.40 

IN."PRESS'ENTER'TO ROLL”; A$:F.X=1T0200:N.X 
3=RND(30)+10:F.H=1TOG:A=RND(6):B=RND(6):CLS 
рер. men A "YOUR ROLL", В) ***” 
F.X=1T025:N.X:N.H:C=A+B:P.“YOU JUST ROLLED ";C 
F.X-1T0333:N. X: RET. 

P." "YOU WIN!":F=F+E 

IF F«0 G.155 


115 P."SO FAR YOU'VE WON $”; Е 


120 Y=1:N=0:IN.“WANT TO PLAY AGAIN";G:IFG=1 6.15 


125 END 

135 P."SNAKE EYES!" 

140 P."","YOU LOSE!":F=F-E:G.110 
145 P." BOX CARS!”:G. 140 

150 P."YOU CRAPPED OUT!":G.140 

155 P.“SO FAR YOU'VE LOST $';F:G.120 


Sample Run 


LET'S SHOOT SOME CRAPS, PAL! 
WHAT'S YOUR BET? 100 
PRESS ‘ENTER’ TO ROLL ?— 
ue YOUR ROLL Jou 
YOU JUST ROLLED 8 
YOUR POINT IS 8 
PRESS ‘ENTER’ TO ROLL ? — 
*** 4 YOUR ROLL 2e. 
YOU JUST ROLLED 6 
YOUR POINT WAS 8 
PRESS ‘ENTER’ TO ROLL 2... 
იც YOUR ROLL J ee 
YOU JUST ROLLED 7 
YOU CRAPPED OUT 

YOU LOSE! 
SO FAR YOU'VE LOST $100 
WANT TO PLAY AGAIN? YES 
WHAT'S YOUR ВЕТ? 250 
PRESS ‘ENTER’ TO ROLL 2... 
е6 YOUR ROLL 567% 
YOU JUST ROLLED 11 

YOU WIN! 
SO FAR YOU'VE WON $150 
WANT TO PLAY AGAIN? NO 
Summary of Variables Used 


Die #1 

Die #2 

Total of last roll 

Point 

Current bet 

Record of winnings (or losses) 
Timing 

Timing 

No (to "PLAY AGAIN?") 
Timing 

Yes (to "PLAY AGAIN?”) 


ешо ОО ш > 
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High/Low 


High/Low is probably the simplest game in this book. The 
computer randomly selects a number which you try to guess. You 
get seven tries, and each time the computer tells you if you are too 
high or too low. In the easy version the number is between 1 and 
25. The medium version is between 1 and 40, and the hard version 
is between 1 and 55. If you prefer you can enter any upper limit you 
like when the computer asks you if you want an easy, medium or 
hard game (step 20). The computer only looks at the first letter of 
any word youtype: entering "EASY", “ЕСС”, orjust "E" willallbe 
the same to the machine. The values for E, M and H are set in line 
15, but you can just enter a number instead of one of the variables. 
Entering “8” would make for a pathetically easy game, and entering 
"888888" would be practically impossible. 

The computer asks you for a guess seven times (steps 45 to 
75). Your guess (called F in the program) is compared to the 
computer's number (X). If there is a match, the program will be 
sent to steps 105 to 145 for a win statement. Otherwise the 
computer determines if your guess is too high or too low and prints 
the appropriate statement. 

If you haven't found the correct number by your seventh 
guess, the computer tells you the correct number and ends the 
game. See Fig. 1-2 for the flowchart. 


Standard BASIC 


19  PRINT:PRINT" ","HIGH/LOW":PRINT 

15 LET E=25:LET M-49:LET Н=55 

20 INPUT"EASY, MEDIUM, OR HARD САМЕ”; С 
25 LET X=INT(RND(1)*G)+1 

30 FOR Z=1 ТО 555: МЕХТ Z 

35 PRINT“I AM THINKING OF А NUMBER FROM 1 TO ";G 
40 PRINT"YOU GET 7 GUESSES”: PRINT 

42 FOR Z=1 TO 444:NEXT Z 

45 FOR Y-1 TO 7 

50 INPUT "YOUR GUESS”; F 

55 FOR 2=1 TO 333:NEXT 2 

60 IF Е=Х GOTO 195 


65 IF F > X PRINT "TOO HIGH!” 
78 IF < X PRINT "TOO LOW!" 


75 NEXT Y 
80 PRINT"SORRY. ТІМЕ UP." 
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RUN 


PICK # 


FORX=1TO7 


^y 


WIN 


—— «ЕСЕР 


Fig. 1-2. High-Low flowchart. 
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135 
140 
145 
150 


PRINT “THE NUMBER WAS ”; 

FOR Z=1 TO 333: NEXT Z 

PRINT X 

END 

FOR L=1 TO 29 

FOR Z=1 TO 20 

PRINT 

NEXT Z 

PRINT“ ” “WINNER!” 

FOR Z=1 TO 59: NEXT Z 

NEXT L 

PRINT:PRINT"THE NUMBER WAS ”;Х 
PRINT“YOU GOT IT ON GUESS sf Y 
END 


TRS-80 BASIC 


P.:P.“”, “HIGH/LOW”:P. :E=25: M=4Q4:H=55 

IN. “EASY, MEDIUM OR HARD GAME”; G:X=RND(G) 
F.Z=1 TO 555:N.Z:P.“I AM THINKING OF A NUMBER FROM 1 
TO 5G 


25 P.“YOU GET 7 GUESSES.”:P.:F.Z=1 TO 444:N.Z 

30 Е.У=1 TO 7:IN. "YOUR GUESS ;F:F.Z-1 TO 333:N.Z 
35 IF Е-Х 0.60 

40 IF F > X P.“TOO HIGH!” 

45 IF F< X P.“TOO LOW!” 

50 N.Y:P.“SORRY. TIME’S UP.”:P.“THE NUMBER WAS ”; 
55 F.Z=1T0333:N.Z:P.X:END 

60 F.L=I1TO28:CLS:P.:P.:P.:P.:F.Z=1TO50:N.Z 

65 P.“”’,“WINNER!”:F.Z=1TO5@:N.Z:N.L:P. 

70 Р. “ТНЕ NUMBER WAS ”;X:P.“YOU GOT IT ON GUESS #”;V 
75 END 

Sampie Run 


HIGH/LOW 


EASY, MEDIUM OR HARD GAME? EASY 

ТАМ THINKING OF A NUMBER FROM 1 TO 25 
YOU GET 7 GUESSES 

YOUR GUESS? 10 

TOO LOW! 

YOUR GUESS? 20 

TOO HIGH! 

YOUR GUESS? 15 

TOO LOW! 

YOUR GUESS? 17 


WINNER! 


THE NUMBER WAS 17 
YOU GOT IT ON GUESS #4 
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Summary Of Variables Used 


Easy game. Е=25 
Guess 

Game range 

Hard game. Н=55 
Timing variable 
Medium game. М=40 
Secret number 

Guess count 

Timing variable 


NM m c m mmt 
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Guess The Variables 


This game is simple enough in concept: it's another number 
guessing game. But playing this one just might tax your mathemati- 
calabilities somewhat. If you always hated algebra, you might want 
to skip ahead to the next chapter, but if you enjoy solving a good 
puzzle, read on. 

The object of the game is to guess the value of the four 
variables (A, B, C & D). In an easy game they are between 1 & 10, in 
a medium game they are between 1 & 20, and in a hard game they 
are between 1 & 40. 

If you request a clue (steps 45, 50, & 225 - 485) the computer 
wil give you an algebraic equation using two or more of the 
variables, and tell you the result. For example, the computer might 
give you the following clue; “C+ D/A = 7". By combining several 
of these clues, you try to determine what the individual variables 
are. 

If you decide to guess the variables (steps 45, 55, & 115 - 170) 
the computer will ask for each variable in turn, comparing your 
guesses with the correct answers. If you get all four right, you win, 
of course (steps 165 & 175 - 210). If you miss any, the computer 
willtell you how many you had right, but not which ones, and count 
it as half a clue. 

You get up to 20 clues (step 60), then you must take one final 
stab at guessing the variables (steps 70-80 & 115 - 170). If you miss 
this time, the computer prints out the correct answers, (steps 85 - 
110) and you lose. 

The first clue is always the sum of the four variables (А + B + 
C + D) (steps 30 & 35). The other clues are randomly chosen from 
a list of 25 equations (steps 225 - 485). The computer keeps track of 
which equations have already been used, so no clue will be used 
twice in one game (steps 230 & 235). 

You might want to use a calculator to help you play this game, 
or at least a pencil and paper. 

This is a good game to teach children math, but let them have 
fun with it. If you turn it into an extra chore nobody will get much 
out of it. 

It's also a good puzzler for adults. You might want to add some 
additional clues yourself. I think the program makes it quite obvi- 
ous how this is done. 
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Standard BASIC 


5 FOR Z=1T025:PRINT:NEXT 7 
10 PRINT"GUESS THE VARIABLES":PRINT 
15 LET E=10:LET M=20 ` 
17 LET H=40:LET Q=1 
20 PRINT“EASY, MEDIUM OR HARD”;:INPUT V 
22 LET A=INT(RND(1)*V)+1 
24 LET B=INT(RND(1)*V)+1 
26 LET C=INT(RNDO)“V)+1 
28 LET D=INT(RND(1)*V)+1 
30 LET X=A+B+C+D 
35 PRINT“A+B+C+D=";X 
40 FOR Z=1T025:LET А(2)-0:МЕХТ Z 
45 РКІМТ“ЕМТЕВ 1 FOR CLUE OR 2 TO GUESS 7; 
47 INPUT W 
50 IF W=1 GOSUB 225 
55 IF W=2 GOSUB 115 
60 IF Q>19.5 GOTO 70 
65 GOTO 45 
70 PRINT“SORRY. YOU'VE HAD 20 CLUES.” 
75 PRINT“HERE'S YOUR LAST CHANCE TO GUESS." 
80 GOSUB 115 
85 PRINT"HERE ARE THE CORRECT ANSWERS";: PRINT 
90 PRINT“A = ”;: GOSUB 220:PRINT А 
95 PRINT“B = ”;: GOSUB 220:PRINT B 
100 PRINT"C = ”;: GOSUB 220:PRINT C 
105 PRINT“D = ”;:GOSUB 220:Р МТ D 
110 END 
115 PRINT"A =”; INPUT E 
120 PRINT"B =”; INPUT Е 
125 PRINT"C =”; МРОТ G 
130 PRINT"D =”; МРОТ Н 
135 LET Т=0: IF Е=А THEN LET Т=Т+1 
140 IF F=B THEN LET Т=Т+1 
145 IF С=С THEN LET Т=Т+1 
150 IF H=D THEN LET Т=Т+1 
155 FOR Z=1T0444:NEXT 7 
160 PRINT “YOU GOT ”;T;“VARIABLES CORRECT." 
165 IF Т=4 GOTO 175 
170 LET Q-Q--0.5: RETURN 
3 175 PRINT" YOU USED”;Q;“ CLUES.” 
_ 180 IF Q«10 PRINT“FANTASTIC!” 
© 185 IF Q«4 PRINT"DID YOU CHEAT?” 
190 IF Q>16 PRINT'TM NOT PARTICULARLY IMPRESSED.” 
195 END 
220 FOR Z=1T0333:NEXT Z; RETURN 


LET S=INT(RND(0)*25)+1 
IF A(S)=1 GOTO 225 
LET A(S)=1:LET Q=Q+1 
IF S=1 GOTO 370 

IF 522 GOTO 380 

IF S=3 GOTO 390 

IF 5=4 GOTO 400 

IF 5-5 GOTO 410 

IF 5=6 СОТО 420 

IF S=7 GOTO 430 

IF 5=8 GOTO 440 


IF 5=9 GOTO 450 

IF S=10 GOTO 460 
IF 5=11 GOTO 470 
IF 5212 GOTO 480 
IF S213 GOTO 490 
IF 5=14 СОТО 500 
IF S=15 GOTO 510 
IF $216 СОТО 520 


IF 5=17 GOTO 530 
IF $218 СОТО 540 


IF $219 GOTO 550 

IF S=20 СОТО 560 

IF 5-21 GOTO 570 

IF S=22 GOTO 580 

IF S=23 GOTO 590 

IF S=24 GOTO 600 

LET X=A+B 
PRINT“A+B=";X:RETURN 
LET X=A+C 
PRINT“A+C=”;X: RETURN 
LET X=A+D 
PRINT“A+D=”; X: RETURN 
LET X=B+C 
PRINT“B+C=”; X:RETURN 
LET X=B+D 
PRINT“B+D=”; X:RETURN 
LET X=C+D 
PRINT“C+D=”; XK:RETURN 
LET X=A*B*C*D* 


PRINT“A X B X C X D ="; X:RETURN 


LET X=A*B 
PRINT“A X B =*;X:RETURN 
LET X=A*C 
PRINT"A X C -”Х:КЕТІЛҰМ 
LET X-A*D 
PRINT"A X D =”;Х:ВЕТОВМ 


560 
565 
570 
575 
580 
585 
590 
595 
600 
605 
610 


LET Х=В*С 

PRINT"B X C =";Х:КЕТОКМ 

LET X=B*D 

PRINT"B X Dz 5X: RETURN 

LET X=C*D 

PRINT"C X D =”;Х:ВЕТОВМ 

LET X=A+B/C 

PRINT“A + B/C =";X:RETURN 
LET X=B+C/D 

PRINT“B + C/D =";X:RETURN 
LET X=C+D/A 

PRINT"C + D/A =”; X:RETURN 
LET X=(A+B)*(C—D) 
PRINT“(A+B)X(C— D)=”;X: RETURN 
LET X=(B—A)*(C+D) 
PRINT“(B—A)X(C+D)=";X: RETURN 
LET X=A*B—C 

PRINT"A X B — С Z5X:RETURN 
LET X-A*(B-C) 

PRINT"A X (B- CO)"; X: RETURN 


LET X=A*A-B 
PRINT“A SQUARED — B =”;Х:ВЕТОВМ 
LET X=A"A-C 
PRINT“A SQUARED — C ="; X:RETURN 
LET X=B“B-D 
PRINT“B SQUARED — р =";X:RETURN 
LET X=D“D-A 
PRINT"D SQUARED — A =”;X:RETURN 


LET X-C*C- (A/(B*B) -D 
PRINT"C SQUARED — А/В SQUARED + D =”; X 
RETURN 


TRS-80 BASIC 
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CLS:P.:P."GUESS THE VARIABLES”: E=10:M=20:H=40 
Q=1:IN. “EASY, MEDIUM OR HARD ”;V 
A=RND(V):B=RND(V): C=RND(V): D=RND(V):X=A+B+C+D 
P.“A+B+C+D=”; X:F.Z=1TO25:A(25)=0:N.Z 

IN.“ENTER 1 FOR CLUE OR2TO GUESS”: W: IF W=1 GOS.225 
IFW=2 GOS.75 

IF Q>19.5G.50 

G.30 

P.“SORRY. YOU'VE USED 20 CLUES.” 

P.“HERE’S YOUR LAST CHANCE TO GUESS THE 
VARIABLES": GOS.75 

P."HERE ARE THE CORRECT ANSWERS": P.:P.*A =”; 
GOS.220:P.A:P.“B = ”;:GOS.220:P.B:P."C =”; 
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GOS.220:P.C:P."D =”;:GOS.220:P.D: END 

T=0:IN."A =";E:IN."B =";F:IN.“C =":G 

IN.“D =";H:IF E=A THEN Т=Т+1 

IF F=B THEN T=T+1 

[Е G=C THEN Т=Т+1 

IF H=D THEN Т=Т+1 

F.Z=1TO444:N.Z:P.“YOU GOT ";T;“ VARIABLES CORRECT.” 

IF T=4 G.120 

Q=A+0.5:RET. 

P."YOU USED ";Q;" CLUES.”:IF Q<10 P.“FANTASTIC!” 

IF Q<4 P.“DID YOU CHEAT?” 

IF» -16 Р-ТМ NOT PARTICULARLY IMPRESSED.” 

F.Z=1T0333:N.Z:RET. 

S=RND(25) 

IF A(S)=1G.225 

A(S)=1:Q=Q+1:IF S=1G.365 

IF S=2G.370 

IF S=3G.375 

IF S=4G.380 

IF S=5G.385 

IF S=6G.390 

IF S=7G.395 

IF S=8G.400 

IF S=9G.405 

IF S=10G.410 

IF $=11G.415 

IF S=12G.420 

IF S=13G.425 

IF S=14G.430 

IF S=15G.435 

IF S=16G.440 

IF S=17G.445 

IF S=18G.450 

IF S=19G.455 

IF S=20G. 460 

IF S=21G.465 

IF S=22G.470 

IF S=23G.475 

IF $=24С.480 

X=A+B:P.“A+B=”;X:RET. 

X=A+C:P.“A+C=";X:RET. 

X=A+D:P.“A+D=";X:RET. 
=B+C:P.“B+C=”; X:RET. 

=B+D:P.“B+D="; X:RET. 
X=C+D:P.“C+D=";X:RET. 
X=A*B*C*D:P.“A X B X C X D =";X:RET. 


395 X=A*B:P."A X B =”. X:RET. 

400 X=A*C:P."A X С =”; X:RET. 

405 X=A*D:P."A X D =”; X:RET. 

410 X=B*C:P.“B X C =”.Х:ВЕТ. 

415 X-C*D:P."C X D =" X:RET. 

420 X=B*D:P.“B X D =”; X:RET. 

425 X=A+B/C:P.“A+ B/C-' 5X: RET. 

430 X=B+C/D:P.“B + C/D =”;X:RET. 

435 X=C+D/A:P.“C + D/A =":X:RET. 

440 X=(A+B)*(C—D):P.“(A+B)X(C—D)="3 X:RET. 

445 X=(B—A)*(C+D):P.“(B—A)X(C+D)="" X: RET. 

450 Х=А*В-С:Р.“АХВ- C =”.Х:ВЕТ. 

455 X=A*(B—C):P.“A X (В-С)=”:Х:ВЕТ. 

460 X=A*A—B:P.“A SQUARED - B =":X:RET. 

465 X=A*A—C:P.“A SQUARED — C =”:Х:ВЕТ. 

470 X=B*B—D:P.“B SQUARED - р =”; X:RET. 

475 X=D*D—A:P.“D SQUARED - A =”;Х:ВЕТ. 

480 X=C*C—(A/(B*B))+D:P.“C SQUARED — А/В SQUARED + 
D=”; X 

485 RET. 


Sample Run 


GUESS THE VARIABLES 

EASY, MEDIUM, ORHARD ?EASY 
A+B+C+D=20 

ENTER 1 FOR CLUE OR 2 TO GUESS ?1 
B+D=12 

ENTER 1 FOR CLUE OR 2 TO GUESS 21 
A X B — C =32 


ENTER 1 FOR CLUE OR 2 TO GUESS ?1 
А SQUARED - B = 18 
ENTER 1 FOR CLUE OR 2 TO GUESS ?1 


C X D =15 

ENTER 1 FOR CLUE OR 2 TO GUESS ?2 
А = ?6 

В = ?5 

С = ?5 

1) = 23 


YOU СОТ 0 VARIABLES CORRECT. 

ENTER 1 FOR CLUE OR 2 TO GUESS  ?1 

C SQUARED — А/В SQUARED + D —13.89796 
ENTER 1 FOR CLUE OR 2 TO GUESS ?1 

8 X ს =35 

ENTER 1 FOR CLUE OR 2 TO GUESS 22 

А = ? 

В = 27 


21 


С = 23 
D= ?5 
YOU GOT3 VARIABLES CORRECT. 


ENTER 1 FOR CLUE OR2 TO GUESS ?1 
A+D=10 
ENTER 1 FOR CLUE OR 2 TO GUESS 22 


= ?5 
YOU GOT 4 VARIABLES CORRECT. 
YOU USED 8 CLUES. 
FANTASTIC! 
>READY 


Summary of Variables Used 


unknown variable #1 

unknown variable #2 

unknown variable #3 

unknown variable #4 

Easy — E=10 / Guess variable A 
Guess variable B 

Guess variable C 

Hard — H=40 / Guess variable D 
Medium — M=20 

Clue count 

Clue selection 

Clue or guess? 

Game level 

Result of clue 

Timing variable 


tQ p< < z (n D = r Q "z ta D O t >> 
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Напотап 


Hangman is a popular old pencil and paper game. In this 
version the computer selects a five letter word (out of 50 pre- 
programmed possibilities) and you have to guess what it is, letter 
by letter. If you correctly guess a letter it is printed in the proper 
position in the secret word. If it is used in the word more than once 
it will be printed wherever it occurs. An incorrect guess adds 
another letter to the word HANGMAN. Ё you spell HANGMAN 
before completing the secret word, you lose. Guessing the secret 
word, of course, is a win. You get a maximum of 11 letter guesses 
for each word, and 13 different letters are used in the various 
secret words. 

On each play you're reminded that the letters 
B,D,G, J, M, Q,U, V, X, Y, and Z are not to be used. These letters are 
used as variables to run the program. V, W,X,Y, and Z аге espe- 
cially to be avoided since these are the variables that contain the 
secret word. To preserve program simplicity you are left on your 
honor not to use these letters, since the computer cannot distin- 
guish between them and a correct guess. See Fig. 1-3 for the 
flowchart. 

If you lose, the computer will tell you what the secret word 
was. 

Of course you can program in your own words. For example, if 
you want to add the word “HORSE”. Change line 30 to LET 
U=INT(RND(0)*51)+1. Then add the following steps: 

121 IF U>50 THEN GOTO 1025 
1025 LET V=15:LET W=19 
1030 LET X=20:LET Y=21 
1035 LET Z=13 
1040 GOTO 140 
OR you could substitute 
1025 LET V=H:LET W=O 
1030 LET X=R:LET Y=S 
1035 LET Z=E 

The numerical values of the letters are given in steps 07 to 14. 
Since this program is largely repetitive, only a portion of a sample 
run is given. 


Standard BASIC 


05 REM*SET LETTER VALUES* 
07 LET АЕШТЕТ C=12:LET E=13:LET F=14 
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LET H=15:LET I=16:LET K=17:LET L=18 
LET N=23:LET O=19:LET R=20:LET 5-21 
LET T=22:LET D=0:LET G=0:LET J=0 
LET M=0:LET Q=0 

REM*CLEAR WRONG GUESS COUNTER* 
FOR X=1TO20:LET A(X)=0:NEXT X 
REM*RANDOM WORD SELECTION* 
LET U-INT(RND(0)*50)4-1 

IF U<4 THEN GOTO 500 

IF U<9 THEN GOTO 525 

IF U<14 THEN GOTO 565 

IF U<19 THEN GOTO 600 

IF U<23 THEN GOTO 635 

IF U<26 THEN GOTO 665 

IF U<29 THEN GOTO 690 

IF U<33 THEN GOTO 715 

IF U<36 THEN GOTO 755 

IF U<38 THEN GOTO 775 

IF U=38 THEN GOTO 795 

IF U<41 THEN GOTO 800 

IF U=41 THEN GOTO 820 

IF U=42 THEN GOTO 825 

IF U<45 THEN GOTO 830 

IF U=45 THEN GOTO 845 

IF U=46 THEN GOTO 850 

IF U<49 THEN GOTO 855 

LET V=22 

IF U=49 THEN GOTO 870 

LET W=13:LET X=13 

LET Y=22:LET Z=15 

REM*THE PLAY* 

CLS:PRINT" ","HANGMAN" 


PRINT"THESE LETTERS ARE NOT USED — B,D,G,J,” 


PRINT"M,Q,U,V, W, X, Y, & Z.” 
LET B=A(15) 

IF В=0 THEN GOTO 165 
PRINT"LETTERS USED SO FAR —”; 
FOR U=1TO B:LET A(19)2A(U) 
GOSUB 880 

NEXT U 

PRINT:PRINT 

IF А(17)=0 THEN PRINT ——" 

IF A(17)=1 THEN PRINT"H ——-" 
IF A(17)=2 THEN PRINT"HA —— " 
IF A(17)=3 THEN PRINT'HAN...” 
IF A(17)=4 THEN PRINT'HANG—"' 


RUN 


SETLETTER 
VALUES 


CLEAR COUNTERS 
SELECT 
SECRET WORD 


NO a ADVANCE WRONG 
GUESS COUNTER 
Yes წ E TR 
x PLACEINTO ves 
SECRET WORD OMEN ' 
M0 L05C 


Fig. 1-3. Hangmanflowchart. 

195 IF А(17)-5 THEN РИМТ“НАМСМ—” 
200 IF А(17)=6 THEN PRINT“HANGMA~’ 
205 IF A(17)=7 THEN СОТО 950 

210 PRINT:PRINT:PRINT“ ”, ‘“*”: 

212 LET A(18)=0 

215 LET A(19)=D:GOSUB 875 

220 LET A(19)=G:GOSUB 875 

225 LET A(19)=J:GOSUB 875 

230 LET A(19)=M:GOSUB 875 

235 LET A(19)=Q:GOSUB 875 

237 REM*WIN TEST» 

238 IF A (18)=5 THEN GOTO 1000 

240 PRINT“: PRINT 

242 PRINT“YOUR GUESS”; 

245 INPUT U 
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LET A(18)=0 


КЕМ* CHECK FOR CORRECT GUESS * 


IF UzV THEN GOSUB 975 
IF U=W THEN GOSUB 980 
IF U=X THEN GOSUB 985 
IF U=Y THEN GOSUB 990 
IF U=Z THEN GOSUB 995 
IF #(18)=0 THEN GOTO 290 
LET В--А(15) 

LET B=B+1 

LET A(15)=B 

A(B)=U 

GOTO 140 

LET B=A (17) 

LET B=B+1 

LET A (17)=B 

GOTO 280 

LET X=11:LET Y=12 
LET Z=17:LET V=21 

IF U=1 THEN LET W=15 
IF U=2 THEN LET W=22 
IF U=3 THEN LET W=18 
GOTO 140 

LET W =11:LET X=17 
LET Y=13:LET Z=21 

IF U=4 THEN LET V=14 
IF U=5 THEN LET V=20 
IF U=6 THEN LET V=22 
IF U=7 THEN LET V=18 
IF U=8 THEN LET У=12 
GOTO 140 

LET W=11: LET X=12 
LET Y=17:LET Z=21 

IF U=9 THEN LET V=15 
IF U=10 THEN LET V=18 
IF U=11 THEN LET V=20 
IF Uz12 THEN LET V=21 
IF Ч=13 THEN LET У=22 
GOTO 140 

LET W=13:LET Z=11 
LET Y=20:LET Z=21 

IF U=14 THEN LET V=14 
IF U=15 THEN LET V=15 
IF U=16 THEN LET V=20 
IF U=17 THEN LET V=21 
IF U=18 THEN LET V=22 
GOTO 140 


LET W=16:LET X=23 

LET Y=13:LET Z=21 

IF U=19 THEN LET V=23 

IF U=20 THEN LET V=22 

IF U=21 THEN LET V=18 

IF U=22 THEN LET V=14 
GOTO 140 

LET W=16:LET X=12 

LET Y=17:LET Z=21 

IF U=23 THEN LET V=17 

IF U=24 THEN LET V=18 

IF U=25 THEN LET V=22 
GOTO 140 

LET W=19:LET X=19 

LET Y=17:LET Z=21 

IF U=26 THEN LET V=12 

IF U=27 THEN LET V=15 

IF U=28 THEN LET V=18 
GOTO 140 

LET X=16: LET Y=12:LET Z=17 
IF U>30 THEN GOTO 740 

LET V=21:LET W=22 

IF U=30 THEN LET W=18 
GOTO 140 

LET V=12:LET W=20 

IF U=32 THEN LET V=22 
GOTO 140 

LET W=20:LET X=11 

LET Y=12:LET Z=17 

IF U=34 THEN LET V=12 

IF U=35 THEN LET V=22 
GOTO 140 

LET X=11:LET Y=20:LET Z=21 
IF U=36 THEN GOTO 790 

LET V=21:LET W=22 

GOTO 140 

LET V=22:LET W=21 

GOTO 140 

LET V=21:LET W=22:LET X=11 
LET Y=20:LET Z=22:GOTO 140 
LET V=21:LET W=15 

LET X=11:LET Y=14:LET Z=22 
IF U=40 THEN LET X=16 
GOTO 140 

LET V=12:LET W=11:LET X=20 
LET Y=13:LET Z=21:GOTO 140 
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LET V=13:LET W=20:LET Х=20 
LET Y=14:LET Z=20:GOTO 140 
LET V=14:LET Y=22 

IF U=43 GOTO 840 

LET W=11:LET X=12 

LET Z=12:GOTO 140 

LET W=16:LET X=14 

LET Z=15:GOTO 140 

LET V=17:LET W=23:LET X=13 
LET Y=13:LET Z=18:GOTO 140 
LET V=18:LET W=16:LET X=17 
LET Y=13:LET Z=21:GOTO 140 
LET V=21 

IF U=47 GOTO 865 

LET W=17:LET X=16:LET Y=18 
LET Z=18:GOTO 140 

LET W=15:LET X=13:LET Y=11 
LET Z=14:GOTO 140 

LET W=15:LET X=13:LET Y=13 
LET Z=14:GOTO 140 
REM*CONVERSION TO LETTERS” 
IF А(19)=0 GOTO 1015 

IF А(19-11 THEN PRINT“A”; 

IF A(19)=12 THEN PRINT“C”; 

IF A(19)=13 THEN PRINT“E”; 

IF A(19)=14 THEN PRINT"F"; 

IF A(19)=15 THEN PRINT"H"; 

IF A(19)=16 THEN РАМТ“Т”; 

IF A(19)=17 THEN РКІМТ“К”; 

IF A(19)=18 THEN PRINT“L”; 

IF A(19)=19 THEN PRINT“O”; 

IF A(19)=20 THEN PRINT“R”; 

IF A(19)=21 THEN PRINT“S”; 

IF A(19)=22 THEN PRINT“T”; 

IF A(19)=23 THEN PRINT“N”; 
LET A(18)=A(18)+1 

RETURN 
PRINT“HANGMAN”: PRINT 
PRINT" ” “YOU LOSE” 
PRINT:PRINT“THE WORD WAS ”, 
LET A(19)=V:GOSUB 875 

LET A(9)=W:GOSUB 875 

LET A(19)=X:GOSUB 875 

LET A(19)=Y:GOSUB 875 

LET A(19)=Z:GOSUB 875 


970 END 
975 LET D=V:LET А(18)=А(18)+1 
977 RETURN 
980 LET G=W:LET A(18)=A(18)+1 
982 RETURN 
985 LET J=X:LET A(18)=A(18)+1 
987 RETURN 
990 LET M=Y:LET A(18)=A(18)+1 
992 RETURN 
995 LET Q=Z:LET A(18)=A(18)+1 
997 RETURN 

1000 PRINT“ “: PRINT:PRINT 

1005 PRINT“YOU WIN!” 

1010 END 

1015 PRINT“?”; 

1020 ВЕТОВМ 


TRS-80 BASIC 


10 A=11:C=12:E=13:F=14:H=15:I=16:K=17 
15 L=18:N=23:0=19:R=20:S=21:T=22:D=0 
20 G=0:J=0:M=0:Q=0 
25 F.X=1T020:A(X)=0:N.X 
30 U=RND(50):IF U<4G.500 
35 IF U<9G.525 
40 IF U«14G.565 
45 IF U«19G.600 
50 IF U<23G.635 
55 IF U«26G.665 
60 IF U<29G.690 
65 IF U<33G.715 
70 IF U<36G.775 
80 IF U=38 G.795 
85 IF U<41G.800 
90 IF U=41G.820 
95 IF U=42G.825 
100 IF U<45G.830 
105 IF U=45G.845 
110 IF U=46G.850 
115 IF U<49G.855 
120 V=22:IF U=49G.870 
125 W=13:X=13: Y=22:Z=15 
140 CLS:P.“ ","HANGMAN" 
145 P."THESE LETTERS ARE NOT USED-B,D,G,J, M,Q,U, 
V,W,X,Y, & Z” 
150 B=A(15):IF B=0G.165 
155 P."LETTERS USED SO ЕАВ.; 


F.U-1TOB:A(19)-A(U): GOS. 880: N.U 
P.:P.:IF A(17)20P." — 

IF A(17)=1P. “H.....” 

IF A(17)=2P. “HA 

IF A(17)=3P. “HAN ” 

IF A(17)24P."HANG —" 

IF A(17)=5P. “HANGM..... 

IF A(17)=6P. “HANGMA—” 

IFA(17)=7G. 950 

P pap YF ALIB)S 
A(19)=D: GOS. 875:A(19)=G:GOS. 875 
A(19)=J:GOS.875:A(19)=M:GOS.875 
A(19)=Q:GOS.875:IFA(18)=5G. 1000 

p es p 

IN. “YOUR GUESS";U:A(18) 0: IFUZVGOS.975 
IF U=WGOS. 980 

IF U=XGOS.985 

IF U=YGOS. 990 

IF U=ZGOS. 995 

IF A(18)=0G.290 
B=A(15):B=B+1:A(15)=B:A(B)=U:G. 140 
А(17)=А(17)+1:С.275 
X=11:Y=12:Z=17:V=21:IF U=1 THEN W=15 
IF U=2 THEN W=22 

IF U=3 THEN W=18 

G.140 

W=11:X=17:Y=13:Z=21:IF U=4 THEN V=14 
IF U=5 THEN У=20 

IF О=6 THEN У=22 

IF U=7 THEN V=18 

IF U=8 THEN V=12 

G.140 

W=11:X=12:Y=17:Z=21:IF U=9 THEN V=15 
IF U=10 THEN У=18 

IF U=11 THEN У=20 

IF U=12 THEN У=21 

IF U=13 THEN V=22 

G.140 

W=13:X=11:Y=20:Z=21:IF 0—14 THEN V=14 
IF U=15 THEN У=15 

IF U=16 THEN V=20 

IF Uz17 THEN У=21 

IF U=18 THEN V=22 

G.140 

W=16:X=23: Y=13:Z=21:IF 0—19 THEN V=23 
IF U=20 THEN V=22 


IF U=21 THEN V=18 

IF U=22 THEN V=14 

G.140 

VV=16:X=12:V=17:7=21:V =22:IL U=23 THEN V=17 

IF U=24 THEN V=18 

G.140 

V=12:W=19:X=19: Y=17:Z=21:IF U=27 THEN V=15 

IF U=28 THEN V=18 

G.140 

X=16: Y=12:Z=17:IF U>30 G.740 

V=21:W=22:IF U=30 THEN W=18 

G.140 

V=12:W=20:IF U=32 THEN V=22 

G.140 

V=12:W=20:X=11:Y=12:Z=17:IF U=35 THEN V=22 

G.140 

Х=11:Ү=20:7=21:1Е U=36 G.790 

V=21:W=22:G. 140 

V=22:W=21:G. 140 

V=21:W=22:X=11: Y=20:Z=22:G. 140 

V=21:W=15:X=11: Y=14:Z=22:IF U=40 THEN X=16 

G.140 

V=12:W=11:X=20: Y=13:Z=21:G. 140 

V=13:W=20:X=20: Y=14:Z=20:G. 140 

V=14: Y=22:IF U=43 G.840 

W=11:X=12:Z=21:G.140 

W=16:X=14:Z=15:G. 140 

V=17:W=23:X=13: Y=13:Z=18:G. 140 

V=18:W=16:X=17: Y=13:Z=21:G. 140 
=21:IF U=47 G.865 

W=17:X=16: Y=18:Z=18:G.140 

W=15:X=13: Y=11:Z=14:G.140 

W=15:X=16: Y=13:Z=14:G.140 

IF A(19)=0 С.1015 

IF A(19)=11P.“A”: 

IF A(19)=12 Р.“С”; 

IF А(19)=13 Р.“Е”; 

IF А(19)=14Р.“Е”; 

IF A(19)=15 Р.“Н”; 

IF A(19)=16P. “T”; 

IF А(19)=17Р.“К”; 

IF A(19)=18P. “L”; 

IF А(19)=19Р.“О”; 

IF A(19)=20P.“R”; 

IF A(19)=21P. “S”; 

IF A(19)=22P. “T”; 
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940 IF А(19)=23Р. “N”; 
945 A(18)=A(18)+1:RET. 
950 P.“HANGMAN”:P.:P.“YOU LOSE”:P. 
955 P."THE WORD WAS ”;:A(19)=V:GOS.875 
960 A(19)=W:GOS.875:A(19)=X:GOS.875 
965 A(19)=Y:GOS.875:A(19)=Z:GOS.875 
970 END 
975 D=V:A(18)=A(18)+1:RET. 
980 G=W:A(18)=A(18)+1:RET. 
985 J=X:A(18)=A(18)+1:RET. 
990 M=Y:A(18)=A(18)+1:RET. 
995 Q=Z:A(18)=A(18)+1:RET 

1000 P.“ *".P.:P.:P.“YOU WIN!:END 

1015 Р.“?”;: ВЕТ. 


Summary Of Variables Used 
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11 * POSSIBLE LETTER 

Letter count 

12 * POSSIBLE LETTER 
CORRECT GUESS * 1st POSITION 
13 * POSSIBLE LETTER 

14 * POSSIBLE LETTER 
CORRECT GUESS * 2nd POSITION 
15 * POSSIBLE LETTER 

16 * POSSIBLE LETTER 
CORRECT GUESS * 3rd POSITION 
17 * POSSIBLE LETTER 

18 * POSSIBLE LETTER 
CORRECT GUESS * 4th POSITION 
23 * POSSIBLE LETTER 

19 * POSSIBLE LETTER 

NOT USED 

CORRECT GUESS * 5th POSITION 
20 * POSSIBLE LETTER 

21 * POSSIBLE LETTER 

22 * POSSIBLE LETTER 

WORD SELECTION/CURRENT GUESS 
SECRET WORD * 1st LETTER 
SECRET WORD * 2nd LETTER 
SECRET WORD * 3rd LETTER 
SECRET WORD * 4th LETTER 
SECRET WORD * 5th LETTER 


А(1)- A(11) LETTERS USED SO FAR 
A(15) LETTER COUNT 
A(17)— A(19) VARIABLES 
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Sample Run (excerpt) 


HANGMAN 
THESE LETTERS ARE NOT USED—B,D,G,J, M,Q,U, V, W,X, Y, &Z 
LETTERS USEDSOFAR—E AIST 
НАМ ы 
*?А?]?* 
YOUR GUESS? К 
HANGMAN 
THESE LETTERS ARE NOT USED—B,D,G,J, M,Q,U, V, W,X, Y, &Z 
LETTERS USED SO FAR—EAISTR 
*RA?I?* 
YOUR GUESS? N 


HANGMAN 
THESE LETTERS ARE NOT USED—B,D,G,J, M,Q,U, V, W,X, Y, &Z 
LETTERS USEDSOFAR—E AISTRN 
HANG... 
“RA?I?" 
YOUR GUESS? O 
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Freebish! 
The Game With Unknown Rules 


Freebish! is probably the strangest game in this book, since 
part of the fun is the challenge of figuring out the rules. I recom- 
mend running the program a few times before reading the explana- 
tion (which is right after the program listings). 

There are rules, even though it might not seem that way. Have 
fun, and if you get a little frustrated, try not to take it out on your 
computer. Just think of how much fun it will be when you get to 
watch someone else try to figure it out. 

A sample run might give it away, so I’m not including one. 


Standard BASIC 


2 FOR X=1 TO 40:PRINT 

4 NEXT X 

6 LET A=INT (RND(0*21)— 10 

8 LET B=INT(RND(0)*21)—10 
10 LET C-INT(RND(0)*21)—10 
12 LET D=INT(RND(0)*21)-10 
14 LET E=INT(RND(0)*21)—10 
16 LET F=INT(RND(0)"21)— 10 
18 LET G=INT(RND(0)"21)-10 
20 LET H-INT(RND(0)*21)— 10 
22 LET I=INT(RND(0)*21)—10 
24 LET J=INT(RND(0)*21)— 10 
26 LET K=INT(RND(0)*21)— 10 
28 LET L=INT(RND(0)"21)— 10 
30 LET M-INT(RND(0*2D- 10 
32 LET N=INT(RND(0)*21)—10 
34 LET Q=INT(RND(0)*21)—10 
36 LET R-INT(RND(0)*21)- 10 
38 LET S-INT(RND(0)*21)— 10 
40 LET T=INT(RND(0)*21)—0 
42 LET U=INT(RND(0)*21)— 10 
44 LET V-INT(RND(0*21)- 10 
46 LET O=0:LET A(1)=0 
48 LET W=0:LET A(2)=0 
50 LET X=0:LET Z=0 
52 LET A(3)——50 
54 REM* THE GAME BEGINS * 
56 PRINT“FREEBISH!” 
58 LET Y-F 
60 LET A(2)=F 
62 INPUT X 


GOSUB 180 

LET W=INT(RND(0)*20)+1 
IF Wz1 THEN GOTO 225 
IF W=2 THEN GOTO 255 
IF W=3 THEN GOTO 270 
IF W=4 THEN GOTO 285 
IF W=5 THEN GOTO 300 
IF W=6 THEN GOTO 315 
IF W=7 THEN GOTO 330 
IF W=8 THEN GOTO 345 
IF W=9 THEN GOTO 360 
IF W=10 THEN GOTO 375 
IF W=11 THEN GOTO 390 
IF W=12 THEN GOTO 405 
IF W=13 THEN GOTO 420 
IF W=14 THEN GOTO 435 
IF W=15 THEN GOTO 450 
IF W=16 THEN GOTO 465 
IF W=17 THEN GOTO 480 
IF W=18 THEN GOTO 495 
IF W=19 THEN GOTO 510 
GOTO 525 

LET A(2)=A(2)+Y 

LET Z=0:LET W=0 

LET А(1)-А(1)-(Ү/2) 
INPUT X 

GOTO 64 

IF X=A(3) THEN GOTO 220 
IF X=Y THEN GOTO 220 
LET A(1)=A(1) +X 

LET A(3)=X 

FOR Z=1 TO 470:NEXT Z 
PRINT" SCORE" 
PRINT“THE BRAIN”, A(2) 
PRINT“THE CLOD”, А(1) 
IF А(1)>35 THEN GOTO 550 
IF A(2)>35THEN GOTO 540 
PRINT: PRINT 

FOR Z=1T0666:NEXT Z 
LET Z=0 

RETURN 


LET А(1)-А(1)-10:ҒОК Z=1 TO 470:NEXT Z 


GOTO 195 

LET Z=A:GOSUB 240 

IF Z=50 THEN GOTO 66 
PRINT“ALBOOKISH!” 


LET У=А 

GOTO 160 

IF Z=Y THEN LET 7=50 
IF Z-X THEN LET 2-50 
RETURN 

LET Z=B:GOSUB 240 

IF Z=50, THEN GOTO 66 
PRINT"BREEP!" 

LET У=В 

GOTO 160 

LET Z=C:GOSUB 240 

IF 2=50 THEN GOTO 66 
PRINT"CRIPKLUTS!" 
LET V=C 

GOTO 160 

LET Z=D:GOSUB 240 

IF Z=50 THEN GOTO 66 
PRINT“DUFFLEEM!” 
LET Y=D 

GOTO 160 

LET Z=E:GOSUB 240 

IF Z=50 THEN GOTO 66 
PRINT“EXQUIMBLE!” 
LET Y=E 

GOTO 160 

LET Z=F:GOSUB 240 

IF Z=50 THEN GOTO 66 
PRINT“FLIBBINK!” 

LET Y=F 

GOTO 160 

LET Z=G:GOSUB 240 

IF Z=50 THEN GOTO 66 
PRINT“GRUNKITT!” 
LET Y=G 

GOTO 160 

LET Z=H:GOSUB 240 

IF Z=50 THEN GOTO 66 
PRINT“HEEJAMBOONKIE!” 
LET Y=H 

GOTO 160 

LET Z=I:GOSUB 240 

IF Z=50 THEN GOTO 66 
PRINT“ISTHRIM!” 

LET Y=I 

GOTO 160 

LET Z=J:GOSUB 240 


377 
380 
382 
385 
390 
392 
395 
397 
400 
405 
407 


410 
412 
415 
420 
422 
425 
427 
430 
435 
437 
440 
442 
445 
450 
452 
455 
457 
460 
465 


467 
470 


472 
475 
480 
482 
485 
487 
490 
495 
497 
500 
502 
505 
510 
512 


IF 2=50 THEN GOTO 66 


PRINT“JACQUELPHLOOM!” 


LET У=] 

GOTO 160 

LET Z=K:GOSUB 240 

IF 2=50 THEN GOTO 66 
PRINT“KREECK!” 

LET Y=K 

GOTO 160 

LET Z=L:GOSUB 240 

IF 2=50 THEN GOTO 66 
PRINT"LORKE!" 

LET Y=L 

GOTO 160 

LET Z=M:GOSUB 240 
IF 2=50 THEN GOTO 66 
PRINT"MUCSTILE!" 
LET У=М 

GOTO 160 

LET Z=N:GOSUB 240 

IF 2=50 THEN GOTO 66 
PRINT“NEFLOM!” 

LET Y=N 

GOTO 160 

LET Z=Q:GOSUB 240 

IF Z=50 THEN GOTO 66 
PRINT“QUIGGGLESBY!” 
LET Y=Q 

GOTO 160 

LET Z=R:GOSUB 240 


IF Z=50 THEN GOTO 66 
PRINT“RECKLEBOP!” 


LET Y=R 

GOTO 160 

LET Z=S:GOSUB 240 

IF 2-50 THEN GOTO 66 
PRINT“SNORK!” 

LET Ү-5 

GOTO 160 

LET Z=T:GOSUB 240 

IF Z=50 THEN GOTO 66 
PRINT“THUBBLE!” 
LET Y=T 

GOTO 160 

LET Z=U:GOSUB 240 

IF Z=50 THEN GOTO 66 
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PRINT“UBENZZERT!” 
LET Y=U 

GOTO 160 

LET Z=V:GOSUB 240 
IF Z=50 THEN GOTO 66 
PRINT“VELK!” 

LET Y=V 

GOTO 160 

PRINT“T WIN, ” 
GOSUB 570 
PRINT"OF COURSE." 
END 


PRINT" HEY! ў 
СОЅОВ 570 
PRINT“YOU WON!” 
GOSUB 570 


PRINT“THAT WASN’T SUPPOSED TO HAPPEN!” 


END 

FOR Z=1 TO 555 
NEXT Z 
RETURN 


TRS-80 BASIC 


5 
10 
15 
20 
25 
30 
35 
40 


CLS:P.:P.:P.:A=RND(21)— 11:B=RND(21)- 11:C=RND(21)- 11 
D=RND(21)—11:E=RND(21)—11:F=RND(21)—11:G=RND(21)-11 
H=RND(21)—11:1=RND(21)— 11:J=RND(21)—11:K=RND(21)—11 
L=RND(21)—11:M=RND(21)—11:N=RND(21)—11:Q=RND(21)—11 
R=RND(21)—11:S=RND(21)— 11: T-RND(2))- 11: T=RND(21)- 11 
U-ZRND(2D- 11: V-RND(21)- 11:020: W 


A(1)=0:A(2)=0: A(3)=— 50 


P.“FREEBISH!”: Y=F: A(2)=F 
IN. X:GOS. 180: W=RND(20):IF W=1 G.225 


IF W=2 G.255 
IF W=3 G.270 
IF W=4 G.285 
IF W=5 G.300 


IF W=6 G.315 


IF W=7 G.330 
IF W=8 G.345 
IF W=9 G.360 
IF W=10 G.375 
IF W=11 G.390 
IF W=12 G.405 
IF W=13 G.420 
IF W=14 0.435 
IF W=15 G.450 


IF W—16 G.465 
IF V=17 G.480 
IF W=18 G.495 
IF W=19 G.510 


G.525 
A(2)=A(2)+Y:Z=0:W=0:A(1)=A(1)— (Y/2) 


IN.X:G.50 
IF Х--А(3) G.220 
IF Х=У G.220 


A(1)=A(1)+X:A(3)=X: F.Z=1T0470:N.Z 
P.“SCORE”:P. “THE BRAIN”, A(2):P.“THE CLOD”, А(1) 


IF A(1)» 35 G.550 
IF A(2)>35 G.540 
P.:P.:F.Z=1T0666:N.Z:Z=0:RET. 


A(1)=A(1)— 10: F.Z=1T0470:N.Z:G.195 


Z=A:GOS.240:IF Z=50 G.55 
P.“ALBOOKISH!”: Y=A:G.160 
IF Z=Y THEN Z=50 

IF Z=X THEN Z=50 

RET. 

Z=B:IF 2-50 G.55 
Y=B:P.“BREEP!”:G.160 
Z=C:GOS. 240:IE Z=50 G.55 
P.“CRIPKLUTS!”: Y=C:G. 160 
Z=D:GOS. 240:IF Z=50 G.55 
P.DUFFLEEM!”: Y=-D:G. 160 
Z=E:GOS.240:IF Z=50 G.55 
P.“EXQUIMBLE!”: Y=E:G. 160 
Z=F:GOS.240:IF Z=50 G.55 
P. “FLIBBINK!”: Y=F:G. 160 
Z=G:GOS. 240:IF Z=50 G.55 
P. “GRUNKITT!”: Y=G:G. 160 
Z=H:GOS. 240:IF Z=50 С.55 
P.“HEEJAMBOONKLE!”: Y=H:G. 160 
Z=I:GOS.240:IF 2-50 G.55 
P.“ISTHRIM!”: Y=I:G. 160 
Z=J:GOS.240:IF Z=50 G.55 
P.“JACQUELPHLOOM!”: Y=J:G.160 
Z=K:GOS. 240:IF Z=50 G.55 
P.“KREECK!”: Y=K:G. 160 
Z=L:GOS. 240:IF 2-50 6.55 
P.“LORKE!”: Y=L:G. 160 
Z=M:GOS. 240:IF 2-50 G.55 
P.“MUCSTILE!”: Y=M:G. 160 
Z=N:GOS.240:IF Z=50 G.55 
P.“NEFLOM!”: Y=N:G. 160 
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450 Z=Q:GOS.240:IF Z=50 G.55 
455 P.“QUIGGLESBY!”: Y=Q:G.160 
465 Z=R:GOS.240:IF Z=50 G.55 
470 P.“RECKLEBOP!”:Y=R:G.160 
480 Z=S.GOS.240:IF Z=50 G.55 
490 P.“SNORK!”: Y=-5:G.160 

495 Z=T:GOS.240:IF Z=50 G.55 
500 P.“THUBBLE!”: Y=T:G.160 
510 Z=U:GOS.240:IF Z=50 G.55 
520 P. “UBENZZERT!”: Y=U:G. 160 
525 Z=V:GOS.240:IF 2-50 G.55 
530 P.“VELK!”: Y=V:G. 160 

540 P."I WIN, ”;:GOS.570 

545 P."OF COURSE.” 

547 END 

550 P.“HEY! ”;:GOS.570 

555 P.“YOU WON!”:GOS.570 

560 P.“THAT WASN'T SUPPOSED TO HAPPEN!” 
565 END 

570 F.Z=1TO555:N.Z 

575 RET. 


The Rules for Freebish! 


Actually the rules for Freebish! are really quite simple. Vari- 
ous letters of the alphabet (except О, W, X and Z, which are used by 
the computer to keep track of things) are randomly assigned values 
from —10 to +10. The first letter of any entry determines the 
amount to be added to or subtracted from your score (any additional 
letters are ignored; they're just for show). If you play the same 
letter twice in a row, or immediately after the computer has played 
that letter, you lose 10 points regardless of the ordinary point value 
of that letter. The computer chooses its plays randomly, but it 
won't break the repetition rule mentioned above, and its first play 
is always “FREEBISH!” (the letter F). Whoever manages to rack 
up a score of more than 35 points wins the game. Even when you 
know the rules, it's harder than it looks because the letters have 
different values each time you play. (NOTE: If two letters have the 
same point value, they are counted as the same letter for the 
repetition rule.) 
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Сгор$ 


In this game you are а farmer growing two crops— 
dreckmelons (which are delicious with rutabagas) and treephules, 
from which valuable treephule fibers are made. The object is to 
have a good harvest. 

Dreckmelon plants will die if exposed to below 402 tempera- 
tures for too long. They can be kept warm by releasing strunkflies, 
which nest over dreckmelon plants in great droves, thereby keep- 
ing them warm. Unfortunately, strunkflies love to eat treephule 
bushes. 

Nellum spiders eat strunkflies. Unfortunately, they also eat 
the frubees needed to pollenate the treephule bushes. 

In case of drought you must open up irrigation ditches. But this 
will also bring in guntherbugs which destroy both crops (and bite 
people too). Guntherbugs serve no useful purpose. 

To help you control the insect population, three different 
insecticides are available: 

DDS: 13% effective against insects; 242% effective against 
plants 

RQL: 38% effective against insects; 27% effective against 
plants 

MPN: 86% effective against insects; 58% effective against 
plants 

You must balance the populations of these various insects for 
an optimum harvest. There is no all-purpose solution to this prob- 
lem, because day-to-day weather will always have a changing 
effect. This means the game can be played over and over again, 
rather than being arepeatable puzzle.See Fig. 1-4 for the flowchart. 


Standard BASIC 


5 PRINT:PRINT" ", "CROPS":PRINT 

7 LET A=0:LET B=0:LET C=0 
10 REM* CROPS PLANTED * 
12 LET D=500:LET T=500 
14 КЕМ“ INITIAL INSECT POPULATION * 
16 LET F=INT(RND(0)*500)+1:LET G=0 
18 LET N=INT(RND(0)*500)+1:LET I=0 
19 LET S=INT(RND(0)*500)+1:LET E=INT(RND(0)*100)—9 
20 REM* DAY’S REPORT * 
22 LET C=C+1 
24 LET W=INT(RND(0)“10)+1) 
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PRINT"YOU HAVE ”;D;“ DRECKMELON PLANTS, ”;Т; 
PRINT"TREPHULE BUSHES”,I; “ IRRIGATION DITCHES” 
PRINT:PRINT F;" FRUBEES",N;" NELLUM SPIDERS”, 
PRINT 5;“ STRUNKFLIES",G;" GUNTHERBUGS” 
PRINT"DAY #”; C,"TEMPERATURE ”;E;“ DEGREES", 
IF Е<40 THEN GOSUB 235 

IF A>5 THEN GOTO 200 

IF W>4 THEN GOTO 205 

LET А=А+1 

PRINT“DRY DAY”: PRINT 

LET E=E+INT(RND(0)*25)—11 

LET X=RND(0)*F/1000 

LET Y=T*X:LET T=T+INT(Y): LET D=D—INT(Y) 

LET X=INT(RND(0)*S)+1 

LET Y=INT(RND(0)*10)+5) 

IF B>Y THEN GOSUB 220 

LET X=X/1500 

LET T-INT(T- (T*X)) 

LET X=(RND(0)*N)/5 

LET SzS-INT(X) : LET F=F—INT(X) 
G=G+(I*INT(RND(0)*100+1) 

IF G<5 THEN GOTO 85 

КЕМ* LINES 55 TO 95 ARE CROP & INSECT ADJUST* 
LET X=(INT(RND(0)*G+1))/20 

LET D=D-INT(X) 

LET X-—INT(RND(0)*G)4-1)/20 

LET T=T-—INT(X):LET Х-А-1 

IF X>5 THEN GOSUB 260 

LET X=C/20 

IF X=INT(X) THEN GOTO 275 

LET X=D+T 

IF Х<50 THEN GOTO 350 

IF X>4000 THEN GOTO 370 

КЕМ* THE PLAY * 


PRINT“1 TO RELEASE INSECTS. 2 TO SPRAY INSECTICIDE,” 


LET G=INT(G+(G*. 1): LET F=INT(F+(F".11)) 
LET S=INT(S+(S*. 12)): LET N=INT(N+(N*. 15)) 
PRINT“3 TO DIG IRRIGATION DITCH 4 TO CLOSE OLD” 
PRINT“OLD DITCH OR 0 TO PASS” 

INPUT L 

IF L=1 THEN GOTO 300 

IF L=2 THEN GOTO 125 

IF L=3 THEN LET I=I+1 

IF L=4 THEN LET I=I-1 

IF Ix1 THEN LET I=0 

GOTO 20 

REM* INSECTICIDE * 


RUN 


INITIALIZE =Q | 
VARIABLES 


DISPLAY 
REPORT 


ADVANCE DAY & 
SELECT WEATHER 


CROP & INSECT POPULATION 
ADJUSTMENTS 


| ЗЕЕ NEXT PAGE 
| FORCHOICES3 
INPUT PLAY 84 


1-- RELEASE | 2- SPRAY 
INSECTS INSECTICIDE 


ADJUS 
POPULATION 


Fig. 1-4. Crops flowchart. 


127 
130 
132 
135 
137 
140 
142 
144 
146 
148 
150 
155 


PRINT”I FOR DDS, 2 FOR RQL, OR 3 FOR MPN” 
INPUT L 

IF L=1 THEN GOTO 160 
IF L=2 THEN GOTO 180 
REM* MPN EFFECTS * 
LET D-INT(D- (D*.58)) 
LET T-INT(T- T*,58)) 
LET S-zINT(S- S*.86)) 
LET N-INT(N- (N*.86)) 
LET F=INT(F—(F*.86)) 
LET G-INT(G- (G*.86)) 
GOTO 20 
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REM* DDS EFFECTS * 
LET D=D-INT(D” .025) 
LET T=T-INT(T".025) 
LET S=S—INT(S* .13) 
LET NzN-INT(N*.13) 
LET F=F-INT(F”.13) 
LET G=G—INT(G*. 13) 
GOTO 20 

REM* RQL EFFECTS * 
LET D=D-INT(D“.27) 
LET T=T-INT(T*.27) 
LET SzS-INT(S*.38) 
LET NzN- INT(N*.38) 
LET F=F—INT(F*.38) 
LET G=G-INT(G".38) 
GOTO 20 

REM* RAIN SELECT * 
IF W<7 THEN GOTO 50 
PRINT “RAIN” 

LET А-А-3 

IF A<1 THEN LET A=0 
GOTO 54 

REM* WEATHER EFFECTS * 
LET Z=INT (X/200) 

IF D>Z THEN GOTO 230 
LET D=INT(D—(RND(0)*D/6)) 


RETURN 

LET D=INT(RND(0)*Z+2*(Z/3) 
RETURN 

LET B=B+1 


IF E<20 THEN LET B=B+.5 
IF E<10 THEN LET B=B+.75 


IF Е<0 THEN LET B=B+1 
RETURN 

REM * DROUGHT DAMAGE * 
LET J-(INT(RND(0)*100)4-1)/100 
LET K=ONT(RND(0)"100)+1)/100 
LET DzD- (*D) 

LET T-T-(T*K) 

LET D=INT(D):LET T=INT(T) 
RETURN 

REM* CROP GROWTH * 

LET Y=D*1.5 

LET D=D+INT(RND(O)*Y+) 
LET Y=T*1.5 

LET T=T+INT(RND(O)”"Y- 1) 
RETURN 


300 
305 


307 
310 
312 
315 
317 
320 
322 
325 
330 
335 
340 


342 
345 
350 
352 


355 


360 
362 
365 
367 
370 
375 
380 
385 
390 
395 
400 


PRINT"1 FOR STRUNKFLIES, 2 FOR МЕЛОМ SPIDERS, 3" 

PRINT"FOR FRUBEES, OR 4 FOR GUNTHERBUGS" 

INPUT X 

PRINT"HOW MANY 7”: 

INPUT Y 

IF Y«0 THEN LET Yz0- Y 

LET Y=INT(Y) 

IF X=4 THEN GOTO 340 

IF Х=1 THEN LET S=S+Y 

IF Х-2 THEN LET N=N+Y 

IF X23 THEN LET F=F+Y 

GOTO 20 

PRINT'WHY WOULD YOU WANT ”;Ү;" MORE 

GUNTHER BUGS!?" 

LET G=G+Y 

GOTO 20 

REM* LOSE * 

ე. SUCCEEDED IN KILLING OFF MOST OF 
OUR" 

PRINT"CROPS. YOU'RE DOWN TO ";D;"DRECKMELON 

PLANTS" 

PRINT"AND ”; Ti" TREPHULE BUSHES” 

PRINT 

PRINT"WHAT A LOUSY FARMER!” 

END 

PRINT" WOW!” 

PRINT"YOU HAVE ”;D;" DRECKMELON PLANTS AND” | 

PRINT T;" TREPHULE BUSHES" 

PRINT 

REM * WIN* 

хы DESERVE AN AWARD ІМ AGRICULTURE!” 


TRS-80 BASIC 


CLS:P." ” “CROPS”: P.: A=0 

B=0:C=0: D=500: F=RND(500):G=0 

1=0: N=RND(500):S=RND(500): T=500: E=RND(100)— 10 
C=C+1: W=RND(10) 

P."YOU HAVE ”; D:" DRECKMELON PLANTS, ”;Т; 
P.“TREPHULE BUSHES”",I;" IRRIGATION DITCHES":P. 
P.F.;"FRUBEES "', N;'NELLUM SPIDERS",S;" 
STRUNKFLIES", 

P.G.; “GUNTHERBUGS"”: P. “DAY $$; C," TEMPERATURE" 
E; DEGREES”, 

IF Е<40 GOS. 235 

IF A>5 G.200 

IF W>4 G.205 
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A=A+1:P.“DRY DAY”:P. 
E=E+RND(25)— 12:X=RND(F)/1000: Y=T*X:T=T+INT(Y) 
:D=D-IN+(Y) 
X=RND(S) : Y=RND(10)+4:IF В>Ү GOS.220 
X=X/1500:T=INT(T— (T*X)) 
X-RND(N)/5:SzS-INTQO: G=G+(*RND(100)): F=F—INT(X) 
IF G<5 G.85 
X=INT(RAD(G)/20):.D=D— X:X=INT(RND(G)/20): T=T-X 
=A-I:IF X>5 GOS.260 
X=C/20:IF X=INT(X) G.275 
X=D+T:IF X«50 G.350 
IF X>4000 G.370 
P."1 TO RELEASE INSECTS, 2 TO SPRAY INSECTICIDE, 3" 
G=INT(G+(G*. 1): F=INT(F+(F". 11):S=INT(S+(S".12)) 
N=N-+INT(X*. 15) 
P.“TO DIG IRRIGATION DITCH, 4 TO CLOSE OLD DITCH,” 
ІМ.“ОК 0 ТО PASS ”;L 
IF L=1 G.300 
IF L=2 G.125 
IF L=3 THEN I=I+1 
IF L=4 THEN I=I-1 
IF Ix1 THEN I=0 
G.20 
IN.“1 FOR DDS, 2 FOR ВОГ OR 3 FOR MPN 5L 
IF L=1 G.160 
IF L=2 G.180 
D=INT(D—(D*.58)): T=T-INT(T".58) 
S=S- (INT(S".86)): NZN- INT(N*.86) 
dp INT(F*.86): GZINT(G- (G*.86) 
.20 


D-D-INT(D*.025): TZ T-INT(T*.025) 

S=S—INT(S*. 13): NZN-INT(N*. 13) 

dede INT(F*.13): G=G—INT(G*. 13) 
.20 

D=D-INT(D".27): TZT-INT(T*.27) 

SzS-INT(S*.38): NZINT(N- (N*.38)) 
=F—INT(F*.38):G=G—INT(G*.38) 

G.20 

IF W<7 G.50 

P."RAIN':A-A-3 

IF A<1 THEN А=0 

G.55 

Z=INT(X/200):IF D<Z G.230 

D=INT(D—RND(D/6)):RET. 

D=INT(RND(Z/3)+2*(Z/3)): RET. 

B=B+1 

IF E<20 THEN B=B+.5 


IF E<10 THEN B=B+.75 
[Е Е<0 THEN B=B+1 
RET. 


J=RND(100)/100: KZRND(100)/100 
D=INT(D—(*D)):T=INT(T—(T*K)) 
RET 


D=D+INT(D*1.5):T=T+INT(T*1.5) 

RET. 

P."1 FOR STRUNKFLIES, 2 FOR NELLUM SPIDERS, 3" 
P.“FOR FRUBEES, OR 4 FOR GUNTHERBUGS” 

IN.X 

IN. “HOW MANY”; Y:Y=INT(Y) 

Y=ABS(Y):IF X=4 G.340 

IF X=1 THEN S=S+Y 

IF X=2 THEN N=N+Y 

IF X=3 THEN F=F+Y 

G.20 

P. “WHY WOULD YOU WANT”: Y; “ MORE GUNTHERBUGS?!?" 
G=G+Y:G.20 

P.“YOU'VE SUCCEEDED IN KILLING OFF MOST OF YOUR” 
P."CROPS. YOU'RE DOWN TO ”;D;“DRECKMELON PLANTS" 
P."AND ”;T;“ TREPHULE BUSHES”:P. 

P.“WHAT A LOUSY FARMER!”: END 

P. “WOW!” 

P."YOU HAVE ”;D;“DRECKMELON PLANTS AND ”;T 
P.“TREPHULE BUSHES” 

P.:P.“YOU DESERVE AN AWARD IN AGRICULTURE!” 

END 


Summary of Variables Used 


хо 200 стт ООО > 


Hi N + 


Number of dry days 

Number of cold days 

Day number 

Number of dreckmelon plants 
Temperature 

Number of frubees 

Number of guntherbugs 


Number of irrigation ditches 
Various calculations 


Various calculations | 
Number of nellum spiders 


Number of strunkflies 
Number of trephule bushes 


Rain or dry 

Various calculations 
Various calculations 
Various calculations 


‚ M, О, P, Q, and R are not used in this program. 
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Sample Run (Excerpt) 

YOU HAVE 500 DRECKMELON PLANTS, 500 

TREPHULE BUSHES, 0 IRRIGATION DITCHES, 

397 FRUBEES, 284 NELLUM SPIDERS, 152 STRUNKFLIES, 
0 GUNTHERBUGS 

BA TEMPERATURE 70 DEGREES 


1 TO RELEASE INSECTS, 2 TO SPRAY INSECTICIDE, 3 
TO DIG IRRIGATION DITCH, 4 TO CLOSE OLD DITCH, 
OR 0 TO PASS ?2 

1 FOR DDS, 2 FOR RQL, OR 3 FOR MPN? 2 

YOU HAVE 365 DRECKMELON PLANTS, 451 
TREPHULE BUSHES, 0 IRRIGATION DITCHES, 

273 FRUBEES, 203 NELLUM SPIDERS, 94 STRUNKFLIES, 
0 GUNTHERBUGS 

DAY #2 TEMPERATURE 68 DEGREES 

DRY DAY 

1 TO RELEASE INSECTS, 2 TO SPRAY INSECTICIDE, 3 
TO DIG IRRIGATION DITCH, 4 TO CLOSE OLD DITCH, 
OR 0 TO PASS ?1 

1 FOR STRUNKFLIES, 2 FOR NELLUM SPIDERS, 3 
FOR FRUBEES, OR 4 FOR GUNTHERBUGS 

21 

HOW МАМУ? 100 

YOU HAVE 332 DRECKMELON PLANTS, 503 
TREPHULE BUSHES, 0 IRRIGATION DITCHES, 

303 FRUBEES, 233 NELLUM SPIDERS, 187 STRUNKFLIES 
0 GUNTHERBUGS 

DAY #3 TEMPERATURE 77 DEGREES 

DRY DAY 

1 TO RELEASE INSECTS, 2 TO SPRAY INSECTICIDE, 3 


TO DIG IRRIGATION DITCH, 4 TO CLOSE OLD DITCH, 
OR 0 TO PASS ?3 


YOU HAVE 299 DRECKMELON PLANTS, 567 

TREPHULE BUSHES, 1 IRRIGATION DITCHES, 

296 FRUBEES, 267 NELLUM SPIBERS, 169 STRUNKFLIES 
0 GUNTHERBUGS 

DAY #4 TEMPERATURE 69 DEGREES 


RAIN 

1 TO RELEASE INSECTS, 2 TO SPRAY INSECTICIDE, 3 
TO DIG IRRIGATION DITCH, 4 TO CLOSE OLD DITCH, 
OR 0 TO PASS ?2 

1 FOR DDS, 2 FOR RQL, OR 3 FOR MPN? = 


YOU HAVE 91 DRECKMELON PLANTS, 2 

TREPHULE BUSHES, 1 IRRIGATION DITCHES, 

36 FRUBEES, 38 NELLUM SPIDERS, 19 STRUNKFLIES, 
14 GUNTHERBUGS 

DAY #5 | TEMPERATURE 61 DEGREES 


There's Gold 
In Them There Skyscrapers 


The directions for playing this game are included in the pro- 
gram listing, steps 450 to 520. You may omit these steps from the 
program along with steps 15, 20, and 525 to 575 if you want to save 
program space. 

The building layout is included in the array. A(1) to A(100) are 
set to 0,2,3, or 4. Obviously each array position stands for a room. 
If a given array position is equal to 2, that's the room holding the 
gold. This can be any room from #2 to #100 (step 145). Room #1 is 
the room the game starts in, but it would be a very short game if the 
gold was found there. 

If the array position is equal to 3 that room has an exit from the 
building. Three of the rooms from 1 to 10 have an exit. These are 
designated as the ground floor since an exit on the 8th floor 
wouldn't be too good an idea. 

Any of the upper rooms (from 11 to 100) might have a trap door 
(designated by a 4 in the array position). If you enter one of these 
rooms, you will fall to the room immediately below it. For exam- 
ple, room 73 would drop you to room 63. Since each array position 
сЕ hold only one number, the gold won't be in a room with a trap 

oor. 

A zero in the array position is just a space holder with no 
particular meaning. 

If the room has the appropriate doors, you can move to the 
room on the immediate right, left, above or below the room you’re 
in. The doors are set inarray positions A(101) to A(500). A(101) to 
A(200) determine which rooms have doors to the right (room 38 
would correspond to A(138). A(201) to А(300) are the doors to the 
left. A(301) to A(400) are the doors to the rooms above, and A(401) 
to A(500) are the doors to the rooms below. A 1 in any given array 
position indicates the presence of that particular door, while a 0 
signifies its absence. (NOTE: you can’t always get out of aroom the 
way you came in). 

In step 30 all the doors are set to 1, then the impossible doors 
are removed (steps 40 to 60). These are the doors along the 
perimeter of the building. There is no room to the left of room 41, 


for instance, so there shouldn’t be a door there, either. 
Finally up to 250 of the remaining 360 doors are randomly 


moved. It’s theoretically possible for you to find yourself in a room 
with no doors at all. If this happens you have to hit the ‘BREAK’ key 
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to get out of the dead-ended program. I haven't included any 
protection against this kind of thing because it would take a great 
deal of program space, and the odds are the problem will never 
come up anyway. It’s possible, but unlikely. 

Your moves are limited to Right, Left, Up, Down, or Exit (you 
can use just the first letters or type out the entire word). Any other 
entry is an invalid move, but the number of moves will still be 
incremented by 1, worsening your score. If you try to use a door 
that isn't there, you'll receive the error message from step 355, and 
it will be treated as an invalid move. 

The only way to end the game is to either BREAK the pro- 
gram, or leave the building via one of the exits either with the gold 
(you win) or empty-handed (you lose). After playing a few games 
youcan determine for yourself what kind of score to consider “раг.” 
Гуе seen scores of 150 add up in this game, and once I lucked out 
and left with the gold in a mere 5 moves. 

You can alter the odds by changing step 75. This step begins 
with the command Y=RND(250). Y is the number of doors to be 
randomly removed (the number might be reduced if the computer 
decides to remove certain doors more than once). If you want an 
easier game you can change this command to Y=RND(100). Or you 
might try Y=RND(150)+150. There could be up to 300 doors 
removed (out of 360!), and at least 150 will be removed (except 
where the computer gets redundant and gives you a break). If you 
alter this command, be sure to re-enter the rest of step 75 as it is 
written in the original program. See Fig. 1-5 for the flowchart. 
Standard BASIC 

5 CLS:PRINT:FOR X=1 TO 109: LET AX)=6:NEXT X 
19 PRINT" GOLD IN THEM THERE SKYSCRAPERS" 


15 INPUT"ENTER 1 FOR INSTRUCTIONS OR 2 FOR GAME ”;Х 
20 IF X=1 GOTO 456 


25 КЕМ ** PUT DOORS IN ALL ROOMS 

30 FOR Х=101 TO 5@0:LET Z(X)=1:NEXT X 
35 КЕМ ** REMOVE IMPOSSIBLE DOORS 
40 FOR X=391 TO 410: LET A(X)=@:NEXT X 
45 LET Y=281:FOR X= 1 TO 18 

50 LET A(Y)2£&: LET У=У+19:МЕХТ X 

60 LET У=119:ЕОК X=1TO 10 

65 LET A(Y)=@:LET Ү=Ү+10:МЕХТ X 

70 REM ** REMOVE RANDOM DOORS 

75 LET Y-INT(RND(1)*250)--1 

80 FOR X= 1 TO Y:LET Z=INT(RND(1)*460)+191 
90 LET A(Z)=B:NEXT X 
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100 REM ** PLANT TRAP DOORS 
105 LET Y=INT(RND(1)*29)+1 
114 FOR X=1 TO Y:LET Z=INT(RND(1)*99)+11 
120 LET A(Z)-4 NEXT X 

125 REM ** PLANT EXITS & GOLD 


| SETUPBUILDING,INITIALIZE | 
| VARIABLES&HIDEGOLD — | 


DISPLAY REPORT 


BUILDING? 


LEFT 


©. 
a 
vi 
О 
о 
= 
< 
Q 
О 
= 


PUTINTO 
MEMORY 


| SETNEW | 
LOCATION _ 


Fig. 1-5. Flowchartfor There's Gold in Them There Skyscrapers. 
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FOR X=1 TO X:LET Y=INT(RND(1)*10)+1 
LET A(Y)=3:NEXT X 

LET X=INT(RND(1)*99)+2:LET A(X)=2 
REM ** SET GAME VARIABLES 

LET M=1: LET P=1:LET G=@ 

LET E=29:LETU=19:LET D=- 10 

LET R=1:LET L=—1 

PRINT“MOVE #”;M:LET М=М+1 
PRINT“YOU ARE IN ROOM ЖУР 

LET X=A(P) 

IF X=2 GOSUB 400 

IF X=3 PRINT“THERE IS AN EXIT.” 
IF X=4 GOTO 420 


PRINT“YOU CAN MOVE IN THE FOLLOWING DIRECTIONS 


LET Y=P+100:IF A(Y)-1PRINT"RIGHT ”; 
LET Y=P+200:IF A(Y)=1 PRINT“LEFT ”; 
LET Y-P--300:IF A(Y)=1 PRINT“UP ”; 
LET Y=P+496:IF A(Y)=1 PRINT"DOWN ”; 
PRINT: PRINT 

INPUT“YOUR MOVE”;Q 

IF Q=E GOTO 300 

IF Q=R GOTO 340 

IF Q=L GOTO 370 

IF Q=U GOTO 380 

IF Q=D GOTO 399 

PRINT “INVALID MOVE!” 

GOTO 200 

IF A(P)=E GOTO 310 

GOTO 290 

PRINT “YOU HAVE JUST LEFT THE BUILDING WITH”; 
IF G=0 PRINT"OUT"; 

PRINT “THE GOLD.” 


LET M=M-1 

PRINT “IT TOOK YOU ”;M;“ MOVES.” 
END 

КЕМ ** MOVE = RIGHT 

LET Х=Р+100 

IF А(Х)=1 СОТО 365 


PRINT“YOU JUST RAN INTO A WALL, CLOD!” 
GOTO 299 

LET P=P+Q:GOTO 269 

REM ** MOVE = LEFT 

LET Х=Р+200: СОТО 358 

КЕМ ** MOVE = UP 


LET X=P+366:GOTO 350 
REM ** MOVE = DOWN 


395 LET X-P--400:GOTO 356 

400 PRINT "YOU JUST FOUND THE GOLD!" 
495 LET А(Р)-й: LET G=1 

416 RETURN 

420 PRINT“TRAP DOOR!” 

425 LET P-P-16 

430 FOR Х=1ТО 333: NEXT X 

440 GOTO 290 


Secret Passageway Option (Standard BASIC) 
122 LET Y=INT(RND(1)*49)+1:FOR X=1TO Y 
123 LET Z-INT(RND(D*190)--1 

124 LET A(Z)=5:NEXT X:LET 5-5 

227 IF X=5 PRINT "THERE IS A SECRET PASSAGEWAY” 
287 IF Q=S GOTO 600 

600 IF A(P)=5 GOTO 620 

610 GOTO 296 

620 CLS:LET P=INT(RND(1)*100)+1 

636 FOR X=1 TO 456: NEXT X 

649 СОТО 200 


TRS-80 BASIC 


10 CLS:P. :P.“ ”, “GOLD IN THEM THERE SKYSCRAPERS” 
15 Е.Х=101Т0500:А(Х)=1:М№.Х:Е.Х=1Т010:А(Х)=03.Х 
20 Е.Х-391Т70410:А(Х)-0:М.Х:Ү-201:Е.Х-Т010 
25 А(У-йҮ-Ү-16:М.Х:Ү-116:Ғ.Х-1Т010 
30 A(Y)=0:Y=Y+10:N.X 
40 Y-RND(59)F.X-1TOY:Z-RND490)--190 
45 А(2)=0:М.Х:М=ЕР=1:С=9:Е=20 
50 Y-RNDQOQF.X-1TOY:Z-RND(99)2-10:A(2)—4:N.X 
55 U=110:D=—-10:R=1:L=-1:F.X=1T03:Y=RND(10) 
60 A(Y)=3:N.X:X=RND(99)+1:A(X)=2 
196 P."MOVE #”;М:М=М+1:Р.“ҮОП ARE IN ROOM #”;P 
105 X-A(PXIF X=2 С0$.250 
119 IF X=ვ P."THERE IS AN EXIT." 
115 IF X=4 G.260 
120 P."YOU CAN MOVE IN THE FOLLOWING DIRECTIONS —” 
125 Y=P+10@0:IF A(Y)=1 P."RIGHT ”; 
1390 Y=P+286:IF A(Y)=1 P.“LEFT ”; 
135 Y=P+399:IF А(Ү)=1 РОР»; 
144 Y=P+499:IF A(Y)=1 P.“DOWN ”; 
145 P.:P.:IN." YOUR MOVE”; ОЛЕ Q=E G.180 
150 IF Q=R G.216 
155 IF Q=L 6.236 
160 IF Q=U G.235 


165 IF Q=D G.240 
170 P."INVALID MOVE'!":G.190 


180 IF A(P)=E G.190 

185 G.179 

190 P.“YOU HAVE JUST LEFT THE BUILDING WITH”; 

195 IF C=0 P.“OUT”; 

200 Р.“ТНЕ GOLD.”"M=M-1:P.“IT TOOK YOU ”М;“ MOVES. 
205 END 


210 X=P+100 
215 IF A(X)=1 0.225 


220 P."YOU JUST RAN INTO А WALL, CLOD!”:G.100 
225 Р=Р-+О:С. 190 

230 Х-Р--200:6.215 

235 —P-4-300:G.215 

240 Х-Р--400:6.215 

250 P."YOU FOUND THE СОШ)!” A(D)z9: GZ1: RET. 
260 P=P—1¢:P.“TRAP DOOR!”:F.X=1TO 333:N. X:G. 100 


Secret Passageway Option (TRS-80) 


35 Y-RND49)F.X-21TOY:Z-RND(100): A(Z)=5:N.X:S=5 
117 IF X=S 606.306 

167 IF Q=S G.310 

300 P."THERE IS A SECRET PASSAGEWAY’: RET. 

310 IFA(P)-5G,620 

315 G.170 

320 CLS:P=RND(100):F.X=1T0456:N.X 

330 С.100 


Summary Of Variables Used 


Move down. D= —16 
Exit. Е=20 

Gold located? 

Move left. L = —1 
Move # 

Current room 

Current move 

Move right.R = 1 

Move up. Ц = 16 
Set-up & timing variable 


t 22 ba CEU D UU E C р CZ 


ui 


Sample Run (Excerpt) 
GOLD IN THEM THERE SKYSCRAPERS 


MOVE #1 
YOU ARE IN ROOM #1 
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YOU САМ MOVE IN THE FOLLOWING DIRECTIONS --- 
RIGHT UP 

YOUR MOVE? RIGHT 

MOVE #2 

YOU ARE IN ROOM #2 

THERE IS AN EXIT 

YOU CAN MOVE IN THE FOLLOWING DIRECTIONS --- 
LEFT UP 

YOUR MOVE? UP 

MOVE #3 

YOU ARE IN ROOM #12 

YOU CAN MOVE IN THE FOLLOWING DIRECTIONS --- 
RIGHT LEFT UP DOWN 

YOUR MOVE? RIGHT 

MOVE #4 

YOU ARE IN ROOM #13 

YOU CAN MOVE IN THE FOLLOWING DIRECTIONS --- 
RIGHT LEFT DOWN 

YOUR MOVE? RIGHT 

MOVE #5 

YOU ARE IN ROOM #14 

TRAP DOOR! 

MOVE #6 

YOU ARE IN ROOM #4 

THERE IS AN EXIT 

YOU CAN MOVE IN THE FOLLOWING DIRECTIONS --- 
RIGHT LEFT UP 

YOUR MOVE? EXIT 


YOU HAVE JUST LEFT THE BUILDING WITHOUT THE GOLD 


IT TOOK YOU 6 MOVES 
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Lost In The Jungle 


This is an adventure game of the type increasingly popular 
amongcomputer hobbyists. The player has anobjective (getting out 
of the jungle alive) and the computer offers various obstacles to the 
goal (wolves, lions, black widow spiders, waterholes, quicksand, 
poisonous berries). The player is then offered a series of options to 
select from. The computer analyzes the results of each choice, 
usually with an element of weighted randomness. On each move 
the player moves one mile in any of the four basic directions (north, 
south, east, or west). 

An added trick to this game is the main scoring variables 
(distance to the outside of the jungle, and the player's remaining 
strength). If you're not careful you may suddenly find yourself 
dropping from exhaustion. You can build up your level of strength 
by eating, but watch out! Some of the food you'll come across might 
turn out to be tainted. 

II you get close to the edge of the jungle you'll be told you can 
see light through the trees ahead. 

Unlike many adventure games, the obstacles are randomly 
placed and the solutions are randomly weighted to keep the game 
interesting even after you've played it a number of times. See Fig. 
1-6for the flowchart. 


Standard Basic 


2 LETA=11:LET B=12 
4 LETC=13:LETD=14 
6 LETE=25:LET M=20 
8 LETH=12:LET K=100 
10 LETF=INTRND(0)*50)+21 
18 PRINT:PRINT 
20 PRINT“”, “LOSTIN THEJUNGLE”:PRINT 
22 OGSUB 500 
25 PRINT“YOU ARE LOST IN A JUNGLE. YOU HAVE A GUN 
WITH6" 
30 PRINT"BULLETS, A KNIFE, & A SLINGSHOT. THE TRICK IS 
TO" 
35 PRINT“FIND YOUR WAY BACK TO CIVILIZATION WITHOUT 
GETTING" 
40 PRINT“YOURSELF KILLED. EACH MOVEIS ONE MILE. THE 
JUNGLE” 


PRINT"IS 100 MILES SQUARE. PRESS'ENTER' TO START" 


INPUT A$ 


PRINT“DO YOU WANT AN EASY, MEDIUM OR HARD 


GAME"; 

INPUTJ 

LET H-INT(RND(0)*50) +21 
LET G=100—F:LET I=100-H:LET M=6 
REM* BEGIN GAME* 
GOSUB 1000 

LET Z=X:LET S=J-4 

REM* EVENT SELECTION* 
LET Y=INT(RND(0)*S)+1 
GOSUB 500 

IF Y=1 THEN GOTO 150 

IF Y<4 THEN GOTO 225 

IF Y=4 THEN GOTO 520 

IF Y=6 THEN СОТО 520 

IF Y=7 THEN GOTO 105 
GOTO70 


PRINT"YOU COME TO A BUSH OF BERRIES" 


LET Y=17:LET N=18 

PRINT“DO YOU EAT THEM?”; 

INPUT Ө 

IF Q=17 THEN GOTO 122 

REM* NOT EAT BERRIES* 

СОТО 70 

REM*EAT BERRIES” 

LET K=K+(/10) 

LET L=INT(RND(0)*J)+1 

IF L<(J*.75) THEN GOTO 140 
PRINT"THEY MAKE YOU QUITE ILL” 
LET K=K—INT(RND(0)*K) 

GOTO 70 

REM*BERRIES OK* 

LET K=K+(/10) 

GOTO 70 

PRINT“YOU STEP INTO QUICKSAND!” 
GOSUB 500 

PRINT“WHAT DO YOU DO?" 

PRINT A — TRY TO CLAW YOUR WAY OUT" 
PRINT“B — GIVE UP” 

PRINT"C — GRAB ONTO A TREE BRANCH” 
PRINT“D — START PRAYING” 

INPUT X 

IF X=C THEN GOTO 200 
PRINT“SORRY ”; 
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SET VARIABLES 
& PRINT 
INSTRUCTIONS 


NO 


EVENT SELECTION 
QUICKSAND| | WOLF LION SPIDER ЕЗ BERRIES Е 


Fig. 1-6. Flowchartfor Lostinthe Jungle. | 
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QUICKSAND 
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HOLD STILL 


CRAWLS OFF 


FLEE SLINGSHOT 


YES 


NO 


YES (8) 


Fig. 1-6. Flowchart for Lost in the Jungle. 
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SHOOTIT 


DRINK 


; NO Y 
iLL = 
| № 

YES W 
= «ШЕР 


BERRIES 


ILLNESS 
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185 GOSUB500 

190 PRINT"YOU'RE DECEASED." 
195 END 

200 REM* TREE BRANCH ATTEMPT* 
202 LETL=J*10 

204 LETQ=INT(RND(O)*L)+1 

206 IFQ>100 THEN GOTO215 

208 PRINT"YOUDIDN'T МАКЕ П" 
210 GOSUB500 

212 GOTO 190 

215 PRINT"YOU MADE III” 

217 LETK=K—INT(RND(0)*K*.67) 
220 GOTO70 

225 КЕМ" ANIMAL ATTACK" 

227 IFY-2THENPRINT"WOLF 7”; 

230 IF Y=3 THEN PRINT“LION”; 

232 PRINT"AHEAD. WHAT DO YOU DO?" 
234 PRINT"A — FLEE” 

236 PRINT"B —SHOOTIT" 

238 PRINT"C — USE YOUR SLINGSHOT” 
240 PRINT"D — USE YOURKNIFE" 
242 PRINT"E — СИМВ A TREE” 

245 ІМРОТХ 

250 GOSUB 500 

252 IFX=A THEN GOTO 285 

255 IFX=B THEN GOTO 330 

260 IF X=C THEN GOTO 350 

265 IF X=D THEN GOTO 355 

270 IF X=E THEN GOTO 390 

272 REM*NO VALID CHOICE* 

275 LETK=K-1 

277 PRINT"IT'SSTILL THERE. NOW WHAT?" 
280 GOTO234 

285 GOSUB 1000 

287 REM* FLEE” 

290 IFZ=X THEN GOTO 760 

292 LET Q=INT(RND(O)*J)4+1 

294 LETK-K-INT(RND(0)*K/2) 

296 IFQ«9 THEN GOTO 315 

298 PRINT“WHEW!” 

300 GOSUB 500 

305 PRINT“YOU MADE IT TO SAFETY!" 
310 GOTO 70 

315 PRINT"IT CATCHES YOU!" 

317 LETK-K-INT(RND(O*K)*1 

318 IFK«10 THEN GOTO 185 
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LET J=J-1 

PRINT“NOW WHAT DO YOU DO?”: GOTO 234 
IF M<1 THEN GOTO 615 

GOSUB 500 

PRINT: PRINT“ ”, “BANG!!!”: PRINT 

LET L=J*2.5: LET М=М-1 

GOSUB 500 

LET Q=INT(RND(0)*L)+1 

IF Q>17 THEN GOTO 440 

PRINT“YOU MISSED!” 

СОТО 315 

LETL=J*1.5 

GOTO334 

LET L=J*1.7 

IF Y=3 THEN LET L=L*2 

LET Q=INT(RND(0)*L)+1 

IF Q>18 THEN GOTO 440 

PRINT“IT OVERPOWERS YOU!” 

LET K=K—(2*Q) 

IF K<15 THEN GOTO 185 

GOTO 320 

IF Y=3 THEN GOTO 430 

LET Q=INT(RND(0)*40)+1 

GOSUB 500 

LET K=K-—Q 

PRINT“THE WOLF DOES NOT LEAVE FOR”; 0; “ HOURS" 
IF K<7 THEN GOTO 420 

PRINT“THEN YOU CAN CLIMB DOWN” 
СОТО 70 

PRINT“YOU DIE OF THIRST AND STARVATION” 
END 

PRINT“LIONS CAN CLIMB TREES BETTER THAN PEOPLE.” 
GOTO 185 

PRINT“GOT ЕМ!” 

GOSUB 500 

PRINT“DO YOU EAT IT?” 

PRINT"A — YES” 

PRINT“B — NO" 

INPUTX 

IF X=A THEN LET K-K4J 

GOTO 70 

PRINT“YOU DROP FROM EXHAUSTION” 
GOTO 185 

LET W=INT(RND(0)*888)+1 

FOR V=1 TOW 

NEXT V 
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510 


522 
525 
527 


RETURN 

PRINT" ABLACK WIDOW SPIDER LANDS ON YOUR NECK!" 
PRINT“WHAT DO YOU DO?” 
PRINT"A — HOLD ASSTILL AS POSSIBLE" 
PRINT“B — TRY TO BRUSH IT OFF" 
PRINT"C — SHOOTIT" 

PRINT"D — CRY" 

INPUTX 

GOSUB 500 

IF X=A THEN GOTO 580 

IF X=B THEN СОТО 580 

IF X=C THEN GOTO 570 

GOTO 180 

PRINT: PRINT“”, “BANG!”: PRINT 
GOSUB 500 

GOTO 180 

LET L=J*4 

LET Q=RND(0)*L)+1 

IF Q<J*2 THEN GOTO 600 

PRINT"IT BITES!” 

GOSUB 500 

GOTO 185 

PRINT“IT CRAWLS OFF WITHOUT BITING” 
GOTO70 

PRINT“YOU ARE OUT OF BULLETS” 
СОТО 370 

PRINT“YOU COME TO A FRESH WATER POND” 
PRINT“WHAT DO YOU DO?" 
PRINT“A — DRINK” 

PRINT“B — SWIM” 

PRINT“C — LEAVE” 

INPUT X 

GOSUB 500 

IF X=A THEN СОТО 670 

IF X=B THEN GOTO 690 

IF X=C THEN GOTO 735 

GOTO 640 

LET Q=INT(RND(0)*Q)+1 

IF Q<6 THEN GOTO 680 

LET K=K+(RND(0)*K)—9 

GOTO 70 

PRINT“IT MAKES YOU QUITE ILL” 
LETK-K-INT(RND(0)*K) 

GOTO 70 

LET Q=INT(RND(0)*4)+1 

GOSUB 500 


LETK-K-2 

IF Q=1 THEN СОТО 710 

IF Q=2 THEN GOTO715 
GOSUB 500 

GOTO 70 

PRINT“YOU DROWN!” 

GOTO 185 

PRINT“A PIRANHA STRIKES!” 
GOSUB 500 

LET Q=INT(RND(O)*J) +1 

IF Q<20 THEN GOTO 185 
PRINT“YOU MANAGE TO ESCAPE WITHOUT SERIOUS IN- 
JURY" 

LET K=K—INT(RND(O)*K) 
GOTO 70 

GOSUB 1000 

IFZ-X THEN GOTO 750 

GOTO 70 

PRINT: PRINT“ ","SPLASH!":PRINT 
GOTO 690 

PRINT“YOU JUST COLLIDED WITH THE”; 
IF Y=2 THEN PRINT“WOLF!” 
IF Y=3 THEN PRINT“LION!” 
GOSUB 500 

СОТО 185 

LETK=K-.5 

PRINT“WHICH WAY DO YOU GO?” 
PRINT“A — EAST” 

PRINT"B — WEST" 

PRINT"C — NORTH" 

PRINT“D — SOUTH" 

INPUTX 

IF X=A THEN GOTO 1050 

IF X=B THEN GOTO 1055 

IF X=C THEN GOTO 1060 

IF X=D THEN GOTO 1065 
GOTO 1000 

LET F=F—1:LET G=G+1 
GOTO 1070 

LET F=F+1:LET G=G—1 
GOTO 1070 

LET H=H—1:LET I=I+1 

GOTO 1070 

LET H=H+1:LETI=I-1 

IF F=0 THEN GOTO 1120 

IF G=0 THEN GOTO 1120 
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1080 
1085 
1090 
1095 
1100 
1105 
1110 
1115 
1120 
1125 
1130 


1135 


IF H=0 THEN GOTO 1120 

IF I=0 THEN GOTO 1120 

IF K<5 THEN GOTO 470 

IF F<10 THEN GOTO 1130 

IF G<10 THEN GOTO 1130 

IF H<10 THEN GOTO 1130 

IFI«10 THEN GOTO 1130 

RETURN 

PRINT“YOU MADE IT SAFELY BACK TO CIVILIZATION!” 
END 

PRINT“YOU CAN SEE SUNLIGHT THROUGH THE 
TREETOPS!” 

RETURN 


m 80 BASIC 


A=11:B=12:C=13:D=14:E=25:P.:P. 

p." ” “LOST IN THE JUNGLE”: P.:GOS.500 

P.“YOU ARE LOST М AJUNGLE. YOU HAVE A GUN WITH 6" 
P.“BULLETS, AKNIFE, & ASLINGSHOT THE TRICK IS TO” 
P.“FIND YOUR WAY BACK TO CIVILIZATION WITHOUT 
GETTING” 

P.“YOURSELF KILLED. EACH MOVE IS ONE MILE. THE 
JUNGLE” 

P.“IS 100 MILES SQUARE. PRESS ‘ENTER’ TO START” 
IN.A$:M=20:H=12 

IN.“DO YOU WANT AN EASY, MEDIUM OR HARD GAME”, J 
K=100:F=RND(50)+20:;H=RND(50)+20:1=100—- H: 
M=6:G=100—F 

GOS. 1000:Z=X:S=J—4 

Y=RND(S): GOS. 500:IF Y=1 G.150 

IF Y«4 G.225 

IF Y=4G.520 

IF Y=6 THEN GOTO 630 

IF Y=7 G.105 

G.70 

P. “YOU COME TO A BUSH OF BERRIES”: Y=17:N=18 
IN.“DO YOU EAT THEM”; Q: IF Q=17 G.120 

B.70 

K=K+(/10): L=RND(): IF L<(J*. 75)G. 140 

P.“THEY MAKE YOU QUITE ILL”: K=K—RND(K) 

G.70 

K=K+(/10):G. 70 

P.“YOU STEP INTO QUICKSAND!”:GOS. 500 

P.“WHAT DO YOU DO?"P."A— TRY TO CLAW YOUR WAY 
OUT” 

P.“B—GIVE UP”: P.“C— GRAB ONTO A TREE BRANCH" 
P."D— START PRAYING”: М.Х 


IF X=C G.200 

P.“SORRY 7”::605.500 

P."YOU'RE DECEASED." 

END 

L=J*10:Q=RND(L): IF Q>100G.215 

P.“YOU DIDN'T MAKE IT.” 

GOS.500:G. 190 

P."YOU MADE IT!”: K=K—INT(RND(K)*.67) 

G.70 

IF Y=2P.“WOLF”; 

IF Y=3P. “LION”; 

P.“AHEAD!”: P. “WHAT DO YOU DO?" 

P.“A— FLEE”:P.“B— SHOOT IT”:P.“C— USE YOUR 
SLINGSHOT” 

P.“D—USE YOUR KNIFE”:P. “E— CLIMB A TREE” 
IN.X 

GOS.500:IF X=A G.285 

IF X-B G.330 

IF X=C G.350 

IF X-D G.355 

IF X=E G.390 

K=K—1:P.“IT’S STILL THERE. NOW WHAT?" 
G.235 

GOS. 1000:IF Z=X G.760 

Q=RND(J( K=K—INT(RND(K)/2) 

IFQ<9G.315 

P.“WHEW!”:GOS.500:P.“YOU MADE IT TO SAFETY!" 
B.70 

P.“IT CATCHES YOU! K=K—RND(K) 

IF K<10G.185 

j=J—1:P.“NOW WHAT DO YOU DO?”:G.235 

IFM« G.615 

GOS.500:P.:P.“”, “BANG!!!”:P.:L=J"2.5:.M=M-1 
GOS. 500:Q=RND():IFQ«17 G.440 

P. “YOU MISSED!" 

G.315 

L=J*1.5:G.335 

Lz]*1.7:IF Y=3 THEN L=L*2 

Q=RND(L): IF Q>18 G.440 

P.“IT OVERPOWERS YOU! K=K—(2*Q):IF K«15 G.185 
G.320 

IF Y=3 G.430 

Q=RND(4)):GOS.500:.K=K-Q 

P.“THE WOLF DOES NOT LEAVE FOR ";Q:" HOURS." 
IF K<7G.420 

P.“THEN YOU CAN CLIMB DOWN”:G.70 
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P.“YOU DIE OF THIRST AND STARVATION.” 
END 

P."LIONS CAN CLIMB TREES BETTER THAN PEOPLE.” 
G.185 

P.“GOT'EM!”:GOS.500:P.“DO YOU EAT IT?” 

P."A— YES”: P."B— NO”:IN.X 

IF X=A THEN K-K-J 

G.70 

P."YOU DROP FROM EXHAUSTION":G. 185 
W=RND(888) 

F.V=ITOW:N.V 

RET. 

P.“A BLACK WIDOW SPIDER LANDS ON YOUR NECK! 
P."WHAT DO YOU DO?":P."A— HOLD AS STILL AS 
POSSIBLE” 

P.“B— TRY TO BRUSH IT OFF”:P.“C— SHOOT IT” 
P."D— CRY”:IN. X: GOS.500:IF X=A G. 580 

IF X=B G.580 

IF X=C G.570 

G.180 

Р.:Р.“”,“ВАМС!”:Р.:С0$.500:С.180 
L=J*4:Q=RND(L):IF Q<J G.600 

Р.“ІТ BITES!":GOS.500 

G.180 

P.“IT CRAWLS OFF WITHOUT BITING":G.70 

P.“YOU ARE OUT OF BULLETS!”:G.370 

P.“YOU COME TO A FRESH WATER POND”:P.“WHAT DO 
YOU DO?” 

P."A— DRINK”: P.“B— SWIM”: P.“C— LEAVE” 

IN.X 

GOS.500:IF X=A G.670 

IF X=B G.690 

IF Х-С G.735 

G.640 

Q=RND():IF Q<6 G.680 

K=K+(RND(K)— 10):G.70 

P.“IT MAKES YOU QUITE ILL” 

K=K—RND(K):G.70 

Q=RND(4):GOS. 500:K=K—2:IF Q=1G.710 

IF Q=2G.715 

GOS.500:G. 70 

P.“YOU DROWN!": GOS.500:G. 190 

P."A PIRANHA STRIKES!!”: GOS.500:Q=RND()) 

IF Q<20G.185 

P."YOU MANAGE TO ESCAPE WITHOUT SERIOUS INJURY" 
K=K-RND(K):G.70 


735 

740 

750 

760 

765 

770 

775 
1000 
1005 
1010 
1015 
1020 
1025 
1030 
1050 
1055 
1060 
1065 
1070 
1075 
1080 
1085 
1090 
1095 
1100 
1105 
1110 
1115 
1120 
1125 
1130 
1140 


GOS. 1000:IF Z=X G. 750 

G.70 

P.:P." ","SPLASH!'': P. G.690 
P."YOUJUST COLLIDED WITH THE”; 
IF Y=2 P.“WOLF!” 

IF Y=3 P.“LION!” 

GOS. 500: С. 185 

K-K-.5:P."WHICH WAY WILL YOU GO?" 
P."A— ЕАЗТ”:Р.“В— WEST'":P."C— NORTH" 
P."D— SOUTH':IN.X:IF Х=А 6.1050 
IF X=BG.1055 

IF X=C G. 1060 

IF X=D С. 1065 

G. 1000 

F=F—1:G=G+1:G.1070 
F=F+1:G=G-1:G.1070 

Н=Н- 1:1=I+1:G.1070 

H-H-4LI-I-1 

IF F=0G.1120 

IF G=0G.1120 

IF H=0G.1120 

IF I=0 6.1120 

IF K<5 G.470 

IF F<10G.1130 

IF G<10G.1130 

IF H<10G.1130 

IF 1<10G.1130 

RET. 


P.“YOU MADE IT SAFELY BACK TO CIVILIZATION!” 


END 


P.“YOU CAN SEE SUNLIGHT THROUGH THE TREETOPS!” 


RET. 


Summary Of Variables Used 


ASS TOMMOOW > 


OPTION SELECTOR 

OPTION SELECTOR 

OPTION SELECTOR 

OPTION SELECTOR 

OPTION SELECTOR/EASY GAME 
DISTANCE EAST 

DISTANCE WEST 

DISTANCE NORTH/HARD GAME 
DISTANCE SOUTH 

GAME DIFFICULTY 

STRENGTH 
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CHANCE SELECTOR 
MEDIUM GAME/# OF BULLETS LEFT. 
CHANCE SELECTOR 
CHANCE SELECTOR 
TIMING 
SELECTED OPTION 
CHANCE SELECTOR 


СРУ 


Sample Run (Excerpt) 


DO YOU WANT AN EASY, MEDIUM OR HARD GAME? EASY 


WHICH WAY WILL YOU GO? 
А — EAST 


B — WEST 
C — NORTH 
D — SOUTH 
49 


A BLACK WIDOW SPIDER LANDS ON YOUR NECK! 
WHAT DO YOU DO? 
А — HOLD AS STILL AS POSSIBLE 
B — TRY TO BRUSH IT OFF 
C — SHOOTIT 
D — CRY 
?A 
IT CRAWLS OFF WITHOUT BITING 
WHICH WAY WILL YOU GO? 
А — EAST 
B — WEST 
C — NORTH 
D — SOUTH 
?А 
НОМ АНЕАП! 
WHAT DO YOU DO? 
А — FLEE 
B — SHOOTIT 
C — USE YOURSLINGSHOT 
D — USE YOUR KNIFE 
E — CLIMBATREE 
?B 
BANG! 
YOU MISSED 
IT CATCHES YOU 
NOW WHAT DO YOU DO? 
A— FLEE 
В — SHOOTIT 
C — USE YOURSLINGSHOT 
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D — USE YOUR KNIFE 

E — CLIMBA TREE 

?А 

WHICH WAY WILL YOU GO? 
А — EAST 


B — WEST 


YOU MADE IT TO SAFETY! 


WHICH WAY WILL YOU GO? 
А — EAST 
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Galactic Search 


Galactic Search is another adventure game. While random 


chance plays a part, there's more opportunity for planning strategy 
in this game. The instructions are given within the program. See 
Fig. 1-7 for the flowchart. 


Standard BASIC 


5 
10 
12 
15 


FOR X=1T0200:PRINT 

LET Y=INT(RND(0)*26)+1 

LET A(X)=Y:NEXT X 

PRINT"YOU ARE ”; 

LET A=INT(RND(0)”5)+1 

FOR X=501T0600: LETY=INT(RND(0)*1000)+1 

IF A=1 THEN LET A$=“AKRANAID” 

LET A(X)=Y: NEXT X 

IF A=2 THEN LET A$=“OLK” 

IF A=3 THEN LET A$=“ZOLAR ZINNK" 

IF A=4 THEN LET A$=“GUAMBNA” 

IF A=5 THEN LET A$=“JOHN DOE" 

PRINT A$;"—CAPTAIN OF THE SPACESHIP 
РКІМТ“ЕУЕМІМС STAR’ FROM THE PLANET RAMSNEID" 
LET J=0:PRINT“RAMSNEID CIRCLES THE STAR KNOWN AS 
FR-972" 

PRINT"ANDISIN DIRE NEED OF THE RARE 

SUBSTANCE, BRETCHENKOEL" 

PRINT"THEREIS NO BRETCHENKOEL LEFT IN THE SOLAR 
SYSTEM" 

PRINT"AND WITHOUT THIS SUBSTANCE TO FUEL THE 
PLANET'S" 

PRINT"POWER STATIONS, YOUR PEOPLE WILL DIE OUT." 
PRINT"THIS IS WHY THE RAMSNEIDIANS HAVE TAKEN UP 
SPACE" 

PRINT"TRAVEL, DESPITE ITS STRANGE & UNPREDICTABLE 
DANGERS" 

FOR Х=201 TO 300 

LET Y=INT(RND(0)*999)+1 

LET A(X)zY:NEXT X 

PRINT"YOUR MISSION, CAPTAIN ”А$:”, IS TO SEARCH 
THE" 

PRINT"GALAXY FOR MORE BRETCHENKOEL. YOU WILL 
BE" 

PRINT"FLYING BY GUESS WORK MOST OF THE TIME" 
FOR Х=301 TO 400 


va | VON 
NOI1V2013U ) £H3MOd ) 
100HSHU3AO 3M80 


MVე§ 
£O03HSHIdWOD2OV HOVOHddV 
ZFONVU 35012 AHY13NVTd 


NOV INLVEOLNO: 


diHS 3AON 
"d & 


Q3HSIdWODOV 
ON NOISSIN 


(ав ) 3314109 V1VOABVIN3VId clay 
40 L'IhS3U 903904 


"MBYIMOY uo1ees opeje ‘4-1 :614 (< ) 


ш 
| 3ovH9sig 
| HOVOHddY 


uvios 


GONVWWOO 


š C 3 


NOISSIW 
сЗААНПЅ 34Y1830Nn 


UVLS 1S3HV3N 
NOVIVO 


SNOILOnIBISNI 
iNIHd 
:S318YlHVA 135 
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LET Y=INT(RND(0)*17)+1 

IF Y=17 THEN Y=0 

IF Y=1 THEN Y=0 

LET A(X)=Y:NEXT X 

GOSUB 1230 

PRINT“BUT WATCH OUT FOR METEORS, AND THE 


GREATLY FEARED” 

PRINT“WAR-LOVING THYLTHRENS!” 

FOR X=401T0500 

LET Y=INT(RND(0)*10)+1 

LET A(X)=Y:NEXT X 

LET N=15 

PRINT“ARE YOU PREPARED TO UNDERTAKE THIS 
MISSION”; 

INPUT X 

IF X=Y GOTO 180 

IF X=N GOTO 160 

PRINT! YOU MUST ANSWER YES OR NO,”;A$ 

GOTO 130 

PRINT“YOU ARE A GREAT SHAME TO YOUR RACE,”; A$; 4” 
PRINT: GOSUB 2000 


PRINT" ”, “GOOD-BYE!” 
END 
PRINT: PRINT 


LET Z=1:LET T=1 

LFT G=30000:LET J=0 
КЕМ* THE PLAY * 
PRINT“WARP DRIVE”; 
INPUT X 

LET ТЕТ+1 

IF X> 50 THEN GOTO 1000 
LET F=100:LET A=200 
PRINT“FORE OR АЕТ”; 
INPUT Y 

IF Y=F THEN GOTO 240 
IF Y=A THEN GOTO 240 
LET Т=Т+3 

GOSUB 2100 

GOTO 200 

LET B=X*10:LET C=B/2 
GOSUB 1130 

GOSUB 2100 

FOR L=1 TO C:PRINT“ * "5 
FOR M=1T0234:NEXT M 
NEXT L 

LET G=G-B 


IF G« 1 THEN GOTO 1150 

IF Y=A THEN GOTO 1200 

LET Z=Z+X 

IF 2>100 THEN GOTO 1220 

IF Z<1 THEN GOTO 1220 

IF 2=1 THEN GOTO 1300 

LET S=Z—1 

PRINT“YOU ARE ”;S;“ SECTORS FROM HOME" 
GOSUB 1500 

LET A=Z+100:LET B=Z+200 

LET C=Z+300:LET D=Z+400 

LET E=Z+500 

PRINT"THE NEAREST STAR IS 7; 
LET K=A(Z) 

GOSUB 1240 

LET K=A(A) 

GOSUB 1240 

PRINT“ an, 

LET K=A(B):PRINT K 
PRINT“DISTANCE IS ”; 

LET К=А(Е) 

PRINT IL LIGHT YEARS" 

IF А(2)=6 THEN GOTO 1320 

LET P-A(C) 

PRINT"THERE ARE ”;P“PLANETS” 
LET H-A(D) 

PRINT H;“ THYLTHRENS IN SOLAR SYSTEM" 
LET N=601 

FOR M=1 TOP 

LET A(N)=INT(RND(0)*40)+1 

LET N=N+1:NEXT M 

IF H>0 THEN GOTO 830 

о FOR SCAN—2 FOR SOLAR APPROACH—3 FOR 


INPUT S 
IF 5=3 THEN GOTO 200 

IF S=2 THEN GOTO 800 

IF S=1 THEN GOTO 430 
PRINT“BAD INPUT!!!” 

GOSUB 2000 
PRINT“COMPUTER JAMMED!” 
GOSUB 2000 

PRINT:LET S=ABS(S) 

LET T=T+S+1 

GOSUB 2000 

GOSUB 2100 
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LET S=INT(RND(0)”5)+1 

IF 524 THEN GOTO 365 

IF S=5 THEN GOTO 365 

GOTO 370 

REM* SCAN MODE* 

IF K>5000THEN GOTO 635 

PRINT" ","SCANNING ------- "; PRINT 
LET N=601:FOR Q=1 TO P 

LET O=A(N) 

GOSUB 2000 

PRINT"PLANET #”; Q, 

GOSUB 2000 

LET N=N+1 

PRINT О 

NEXT Ө 

GOSUB 2000 

LET Т=Т+.67 

GOSUB 2100 

PRINT*3 FOR WARP,4 FOR PLANETARY APPROACH"; 
INPUT S 

IF 5-4 THEN GOTO 500 

IF $=3 THEN GOTO 200 

GOTO 385 

PRINT: PRINT" ”, “PLANETARY APPROACH”: PRINT 
LET T=T+1.3 

GOSUB 2100 

PRINT“ TARGET—PLANET#" 
INPUT 5 

IF S> P THEN GOTO 1370 

IF $<1 THEN GOTO 385 

LET Wz(K/P)*S 

LET X=INT(RND(0)*100)+1 

LET Y=INT(RND(0)*4)+1 

IF Y> 2 THEN LET X=0-X 

LET W=W+X 

PRINT"DISTANCE TO PLANET 7? 5;"---5W 
IF W«100 THEN GOTO 650 
PRINT"APPROACH DRIVE POWER"; 
INPUT V 

LET T=T+V:LET G=G-V 

GOSUB 1500 

IF V> 12 THEN GOTO 1020 

IF V<2.2 THEN GOTO 385 

LET U=INT(RND(0)*13)+1 

LET VzV*U*3 

GOSUB 2100 


LET WzW-V 

IF W«7 THEN GOTO 580 

GOTO 540 

IF W<—10 THEN GOTO 600 

IF W<—6 THEN GOTO 650 

PRINT“ YOU COLLIDED WITH THE PLANET!” 
GOSUB 2000 

PRINT" YOU CLUMSY CLOD!” 

GOSUB 2000 

GOTO 1050 

PRINT“OVER-SHOOT!” 

GOSUB 2000 

PRINT"EXCESS VELOCITY PROPELS YOU AWAY FROM 
TARGET” 

LET T=T+10 

LET K=K+INT(RND(0)"8000)+(2“V)-(W+INT(RND(0)”1000) 
PRINT"SOLAR DISTANCE IS ”;K;“ LIGHT YEARS" 
GOSUB 2000 

GOTO 365 

PRINT"DISTANCE TOO GREAT FOR SCAN OR PLANETARY 
APPROACH" 

LET Т=Т+6.73 

GOTO 365 

PRINT"TARGET ACHIEVED!" 

GOSUB 2000 

PRINT"CLOSE RANGE SCAN---”; 

GOSUB 2000 

LET Т=Т-2.3 

LET Е=5+600 

LET Р=А(Е) 

LET P=(P/4)* INT(RND(0)*25)4-2) 

IF P>100 THEN Р=0 

PRINT“ATMOSPHERIC?o OF BRETCHENKOEL--PLANET 
#”;5 

GOSUB 2000 

PRINT" ”,“ ” Pw 26”: PRINT 

IF Р=0 THEN GOTO 790 

IF P«25 THEN GOTO 780 

IF P587 THEN GOTO 750 

PRINT"LOADING--" 

GOSUB 2000 

GOSUB 2000 

LET B-INT(RND(0)*17)4-4 

LET Р=Р*В 

PRINT:PRINT 

PRINT P;"UNITS OF BRETCHENKOEL COLLECTED" 
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LET G=G+P-20 

LET J=J+P 

GOSUB 2000 

PRINT“TOTAL BRETCHENKOEL NOW ON BOARD—"; 
GOSUB 2000 

PRINT J:PRINT:PRINT 

LET Т-Т-4 

IF J«5020 THEN GOTO 365 

PRINT“MISSION ACCOMPLISHED!” 

GOSUB 2000 

PRINT“GOOD WORK, '5A$ 

GOSUB 2000 

PRINT“YOUR PEOPLE ARE SAVED!” 

END 

LET T=T+2 

PRINT“THAT’S SCARCELY WORTH BOTHERING WITH!” 
GOSUB 2000 

GOSUB 2100 

LET J=J+P:GOTO 730 

PRINT“THERE'S NO BRETCHENKOEL HERE, STUPID!” 
LET T=T+13 

GOSUB 2100 

GOTO 365 

LET K=K-INT(RND(O)”K) 

LET T=T+1.5 

IF K«200 THEN GOTO 1600 

GOTO 320 

PRINT“THYLTHERNS ATTACK!!!” 

LET Q=0:GOSUB 2000 

LET N=INT(RND(0)*10)+601 

FOR L=1 ТОН 

LET U=A(N) 

PRINT U; “MEGABLORTS OF ENERGY FROM THYLTHERN 
#2':L 

LET N=N+1:LET Q-Q--U-INT(RND(0)*10) 
NEXT L:LET T=T+H 

GOSUB 2100 

IF C>400 THEN GOTO 1400 

PRINT“3 FOR WARP, 5 TO RETURN FIRE ”; 
INPUT S 

IF 5=3 THEN GOTO 200 

IF $=5 THEN GOTO 880 

PRINT" BAD INPUT” 

GOTO 830 

PRINT“MEGABLORTS”; 

INPUT M 


LET T=T+M 

LET F=INT(RND(0)*201)+1 

IF M> 1000 THEN GOTO 1040 
IF M<F THEN GOTO 910 

LET M-M-35-INT(RND(0)*100) 
LET H=H-1:LET Т=Т+1.2 
PRINT“ITHYLTHERN DESTROYED!” 
IF Н=0 THEN GOTO 930 

PRINT H; “THYLTHRENS LEFT” 
LET Q=0 

GOTO 835 

PRINT"GOT 'EM ALL!” 

GOSUB 2000 

LET T=T+INT(RND(0)*10)+1 
GOSUB 2100 

GOTO 365 

FOR L=1 TO 500:МЕХТ L 

LET Y=INT(RND(0)"30)+1 

FOR M=1 TO Y 

PRINT“ en, 

NEXT M 
PRINT“OVER-DRIVE!!!” 

FOR M=1TO Y 

PRINT“ * "; 

NEXT M 

PRINT:FOR L=1 TO 470:МЕХТ L 
PRINT“YOU BLEW IT, ”;А$ 
GOSUB 2000 

PRINT“YOU ARE DEAD ”; 
GOSUB 2000 

PRINT"AND SO ARE ALL THE PEOPLE BACK ON 
RAMSNEID!" 

FOR L=1 TO 908:МЕХТ L 
GOTO 160 

PRINT"IT'S TOO LATE!" 
GOSUB 2000 

PRINT"EVERYONE BACK HOME IS DEAD!" 
GOSUB 2000 

GOTO 160 

IF C«80 THEN GOTO 1140 

LET CzC/2 

GOTO 1130 

RETURN 

PRINT“ ” “OOPS!” 

GOSUB 2000 
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1155 PRINT"YOU ARE OUT OF FUEL!" 
1160 GOSUB 2000 

1165 PRINT"WHAT SHODDY PLANNING!" 
1170 GOTO 1055 

1200 LET Z=Z—X 

1205 IF Z<1 THEN GOTO 1220 
1210 GOTO 285 

1220 PRINT"YOU JUST WARPED ’EVENING STAR’ RIGHT OUT" 
1222 PRINT"OF THE GALAXY!” 
1225 GOTO 1160 

1230 LET A(1)-6 

1232 LET A(101)=18 

1234 LET А(201)=972 

1235 СОТО 1270 

1240 IFK=1 THEN PRINT"A"; 
1241 IF K=2 THEN PRINT"B"; 
1242 IF K=3 THEN PRINT“C”; 
1243 IF K=4 THEN PRINT"D"; 
1244 IF K=5 THEN РКІМТ“Е”; 
1245 IF K=6 THEN PRINT"F"; 
1246 IF K=7 THEN РКІМТ“С”; 
1247 IF K=8 THEN PRINT"H"; 
1248 IF К=9 THEN PRINT'T'; 
1249 IF K=10 THEN PRINT'T'; 
1250 IF K=11 THEN PRINT“K”; 
1251 IF K=12 THEN PRINT“L”; 
1252 IF K=13 THEN PRINT"M"; 
1253 IF K=14 THEN PRINT“N”; 
1254 IF K=15 THEN PRINT“O”; 
1255 IF K=16 THEN PRINT"P"; 
1256 IF K=17 THEN PRINT"Q"; 
1257 IF K=18 THEN PRINT“R”; 
1258 IF K=19 THEN PRINT“S”; 
1259 IF K=20 THEN PRINT“T”; 
1260 IF K=21 THEN PRINT“U”; 
1261 IF К=22 THEN PRINT“V”; 
1262 IF K=23 THEN PRINT“W”; 
1263 IF K=24 THEN PRINT"X"; 
1264 IF К=25 THEN PRINT" Y"; 
1265 IF K=26 THEN PRINT'Z"; 
1267 RETURN 

1270 FOR X=401 TO 500 

1272 LET Y=INT(RND(0)*30)+1 
1275 IF Y> 13 THEN LET Y=0 
1277 LET A(X)-Y 

1280 NEXT X 

1285 FOR Х=501 TO 600 
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LET Y=INT(RND(0)*8010)+1 

LET А(Х)=У:МЕХТ X 

RETURN 

PRINT"YOU CAME HOME WITHOUT ENOUGH 
BRETCHENKOEL?!?" 

GOSUB 2000 

PRINT“YOU ARE PROMPTLY LYNCHED!” 

GOTO 160 

IF A(A)=18 THEN GOTO 1330 

GOTO 340 

IF A(B)=972 THEN GOTO 1340 

GOTO 340 

PRINT"HEY" 

GOSUB 2000 

PRINT“ YOU MUST'VE GONE THROUGH A BLACK НОГЕ OR" 
PRINT" SOMETHING, BECAUSE SUDDENLY YOU'RE 
HOME!” 

GOSUB 2000 

PRINT“AND WHAT A GREETING YOU RECEIVE!” 
GOSUB 2000 

PRINT"THE PEOPLE ALL GATHER AROUND AND SAY—” 
GOSUB 2000 

GOTO 1300 

PRINT"NO SUCH PLANET" 

PRINT:PRINT 

LET F=INT(RND(0)"30)+1 

LET Т=Т+Е 

IF > 23 THEN GOTO 1390 

GOTO 390 

PRINT“ YOU ARE HEREBY STRIPPED OF YOUR 
COM MAND!” 


GOSUB 2000 

GOTO 160 

PRINT“EVENING STAR IS DESTROYED!” 
GOSUB 2000 

GOTO 1045 

LET M=INT(RND(O)*101)+1 
IF M>97 THEN GOTO 1520 
RETURN 

PRINT"METEOR STRIKE!!!” 
LET M=INT(RND(0)"34)+1 
LET T=T+M 

IF T>100 THEN GOTO 1100 
RETURN 

LET Y-INT(RND(0)*1000)4-100 
FOR Х=1 TO Y 
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2010 
2015 
2100 
2105 
2110 
2115 


1600 
1605 
1610 


NEXT X 

RETURN 

LET U-RNDX(0) 

LET T=T+U 

IF T2100 THEN GOTO 1100 
RETURN 


PRINT"YOU'VE DIVED INTO THE SUN!” 
GOSUB 2000 
GOTO 1400 


TRS-80 BASIC 


100 


117 


120 
125 
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CLS:P.;P." YOU ARE ”;:A=RND(5) 

IF А=1 A$=“AKRANAID” 

IF A=2 A$=“OLK” 

IF A=3 A$=“ZOLAR АММК” 

IF A=4 A$=“GUAMBNA” 

IF A=5 A$=“JOHN DOE" 

Р.А$;“ — CAPTAIN OF THE SPACESHIP” 

P.““EVENING STAR’ FROM THE PLANET RAMSNEID” 
J=0:F.X=1T0200: Y=RND(26):AQQ=Y:N.X 

P.“RAMSNEID CIRCLES THE STAR KNOWN ASFR-972 AND” 


P.“IS IN DIRE NEED OF THE RARE SUBSTANCE, 
BRETCHENKOEL” 


P.“THERE IS NO BRETCHENKOEL LEFT IN YOUR SOLAR 
SYSTEM” 

P.“AND WITHOUT THIS SUBSTANCE TO FUEL THE 
PLANET'S" 

P."POWER STATIONS, YOUR PEOPLE WILL DIE OUT." 
P."THIS IS WHY THE RAMSNEIDIANS HAVE TAKEN UP 
SPACE" 

P."TRAVEL, DESPITE ITS STRANGE & UNPREDICTABLE 
DANGERS" 

F. X—201T0300: Y ZRND(999): A(X) ZY:N.X 

PRINT"YOUR MISSION, CAPTAIN”; A$;", IS TO SEARCH 
THE" 

PRINT"GALAXY FOR MORE BRETCHENKOEL. YOU WILL 
BE FLYING" 

PRINT"BY GUESS WORK MOST OF THE TIME" 
F.X=301T0400: Y=RND(17) 

IF Y=17 THEN Y=0 

IF Y=1 THEN Y=0 

A(X)=Y:N.X: GOS. 1230 

PRINT“BUT WATCH OUT FOR METEORS, AND THE 
GREATLY FEARED,” 

P.“WAR-LOVING THYLTHRENS!” 
F.X=401T0500: Y=RND(10): A(X)=Y:N.X:N=15 


F.X=501T0600: Y=RND(1050): АС) ZY:N 
IN."ARE YOU PREPARED TO UNDERTAKE THIS 
MISSION”:X 
IF X=Y G.180 
IF X=N G.160 
P.“YOU MUST ANSWER YES OR NO,”; A$:G.130 
P.“YOU ARE A GREAT SHAME TO YOUR RACE, "; A$;"!” 
P.:GOS.2000: P." ”,“GOOD-BYE!” 
END 
P.:P.:Z=1:T=1 
G=30000:J=0 
IN.“WARP DRIVE”;X:T=T+1 
IF X> 50 G.1000 
F=100:A=200:IN.“FORE OR АЕТ”;У 
IF Y=F G.240 
IF Y=A G.240 
T=T+3:GOS.2100:G.200 
В=Х*10:С=В/2:С0$.1130:С0$.2100 
F.L=1TOC:P.“*";:F.M=1T0134:N.M:N.L 
G=G-B:IF G> G.1150 
IF Y=A G.1200 
Z=Z+X 
IF Z>100 G.1220 
IF Z> 16.1220 
IF Z=1 G.1300 
S=Z-1:P.“YOU ARE”;S;“SECTORS FROM HOME” 
GOS. 1500: A=Z+100:B=Z+200: C=Z+300: D=Z+400:E+500 
P."THE NEAREST STAR IS”::K=A(Z):GOS. 1240 
K=A(A):GOS. 1240:P.“*”";: K=A(B):P.K 
P.“DISTANCE IS ”; 
K=A(E):P.K;“ LIGHT YEARS” 
IF A(Z)=6 G.1320 
=A(C):H=A(D):P.“THERE ARE ”;Р;“ PLANETS” 
P.“THERE ARE ”;Н;“ THYLTHRENS IN SOLAR SYSTEM" 
N=601:F.M=1TOP: ANJ =RND(40):N=N+1:N.M 
IF H>0 G.830 
IN.“1 FOR SCAN — 2 FOR SOLAR APPROACH— 3 FOR 
WARP' 5S 
IF S23 G.200 
IF 5-2 G.800 
IF 5-1 G.430 
P." BAD INPUT!!!”: GOS. 2000 
P.“COMPUTER JAMMED!”:GOS.2000:P. 
S=ABS(S):T=T+S+1:GOS.2000:GOS.2100 
=RND(5): IF S=4 G.365 
IF S=5 G.365 
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G.370 

IF К>5000 G.635 

P.“ ” "SCANNING ------”: P:N=601 
F.Q=1TOP: O=A(N):GOS.2000:P. "PLANET #”;0, 
GOS.2000: NzN--1:P. O: N.Q 
GOS.2000: T2 T4-.67: GOS. 2100 

IN."3 FOR WARP,4 FOR PLANETARY APPROACH" ;S 
IF S24 G.500 

IF S=3 G.200 

G.385 

Р.:Р.“ ","PLANETARY APPROACH”: P. 
T=T+1.3:GOS. 2100 

IN.“TARGET --- PLANET #”;5 

IF S>P G.1370 

IF S«1 G.385 

W=(K/P)*S 

X=RND(100): Y=RND(4) 

IF Y> 2 THEN Х=0-Х 

W=W+X 

P.“DISTANCE TO PLANET #”;S;--- ”; W 
IF W<100 G.650 

IN."APPROACH DRIVE POWER ”;У 
T=T+V:G=G—V:GOS. 1500 

IF V>12 G.1020 

IF V< 2.2 G.385 
U=RND(13): V zU*V*3:GOS.2100 
W=w— ү 

IF W« 7 G.580 

G.540 

IF W<—10 G.600 

IF W<—6 G.650 

P.“YOU COLLIDED WITH THE PLANET!”:GOS.2000 
ნ.“ YOU CLUMSY CLOD!” 
GOS.2000:G.1050 
PRINT“OVER-SHOOT!”: GOS. 2000 


PRINT“EXCESS VELOCITY PROPELS YOU AWAY FROM 


TARGET” 
T=T+10:K=K+RND(8000)+2*V—(W+RND(1000) 
PRINT “SOLAR DISTANCE IS ”;K;“LIGHT YEARS” 
GOS. 2000: G.365 


PRINT“DISTANCE TOO GREAT FOR SCAN OR PLANETARY 


APPROACH” 

T=T+6.73:G.365 

PRINT“TARGET ACHIEVED!":GOS.2000 
PRINT“CLOSE RANGE SCAN --- "5 
GOS.2000:T=T+2.3:F=5+600 


P=A(F) 

P=(P/4)*(RND(25)+2) 

IF P> 100 THEN P=0 

PINT ATMOSPHERIC OF BRETCHENKOEL — PLANET 


GOS. 2000 

Po pop 

IF P=0 G.790 

IF P<25 G.780 

IF P> 87 G.750 

P. “LOADING ---”:GOS.2000:GOS. 2000 

B=RND(17)+3:P=P*B 

P.P;“ UNITS OF BRETCHENKOEL COLLECTED” 
G=G+P—20:J=J+P 

GOS. 2000: P. “TOTAL BRETCHENKOEL NOW ON BOARD —"; 
GOS.2000:P.J:P.:P.:T=T-—4 

IF J<5020G.365 

P."MISSION ACCOMPLISHED!”: GOS. 2000 

P.“GOOD WORK, ";A$:GOS.2000 

P.“YOUR PEOPLE ARE SAVED!” 

END 

T=T+2:P.“THAT’S SCARECELY WORTH BOTHERING 
WITH!” 

GOS.2000:GOS.2100:J=J+P:G.730 

P.“THERE’S NO BRETCHENKOEL HERE, STUPID!” 
T=T+13:GOS.2100 

G.365 

K=K—RND(K):T=T+4+1.5 

IF K<200 G.1600 

G.315 

P."THYLTHERNS ATTACK!!"Q-0:GOS.2000 
N=RND(10)+600:F.L=1TOH 

U-A(N) 

ა. MEGABLORTS OF ENERGY FROM THYLTHERN 


N=N+1:Q=Q+U—RND(10):N.L:T=T+H:GOS.2100 
IF Q>400 G.1400 

IN.“3 FOR WARP, 5 TO RETURN TO FIRE";S 
IF S=3 G.200 

IF S=5 G.880 

P." BAD INPUT!”:G.830 
IN.“MEGABLORTS”;M:T=T+M:F=RND(201) 
IF M>1000G. 1040 

IF M<F G.910 

М=М- 35- RND(100):H=H-:T=T+1.2 

Р.“1 THYLTHERN DESTROYED!” 
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IF Н=0 G.930 

P.H;“ THYLTHRENS LEFT”:Q=0 

G.835 

P.“GOT 'EM ALL!”:GOS.2000 
T=T+RND(10):GOS. 2100 

G.365 

F.Lz1TO500: N.L: Y=RND(30) 
F.M=1TOY:P.“ * ”;: М.М 
P.“OVER-DRIVE!!!” 

Е.М=1ТОУ:Р.“ *”;: N.M 
P.:F.L=1TO470:N.L 

P.“YOU BLEW IT, ”;A$:GOS.2000 
P.“YOU ARE DEAD ”;:С0$.2000 

P. “AND SO ARE ALL THE PEOPLE BACK ON REMSNEID!” 
F.L=1TO908:N.L:G.160 

P. “IT'S TOO LATE!”:GOS.2000 
P.“EVERYONE BACK HOME IS DEAD!”:GOS.2000 
G.160 

IF C«20 THEN G.1140 

C=C/2:G.1130 

RET. 

Р.“ “ “OOPS!”: GOS. 2000 

P.“YOU ARE OUT OF FUEL!”:GOS.2000 
P.“WHAT SHODDY PLANNING!”:G. 1060 
Z=Z—X:IF Z<1G1220 

G.285 

P.“YOU JUST WARPED ‘EVENING STAR’ RIGHT OUT OF" 
P.“THE GALAXY!”:G.1165 

А(1)--6: А(101)--18: А(201)--972 

G.1270 

IF K=1P.“A”; 

IF K=2P.“B”; 

IF К=ЗР.“С”; 

IF K=4P.“D”; 

IF К=5Р.“Е”; 

IF К=6Р.“Е”; 

IF К=7Р.“С”; 

IF K=8P.“H”; 

IF К=9Р.“Т”; 

IF K=10P.“7”; 

IF K=11P.“K”; 

IF K=12P.“L”; 

IF K=13P.“ M”; 

IF K=14P.“N”; 

IF K=15P.“O”; 

IF K=16P.“P”; 


1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1268 
1270 
1275 
1280 
1285 
1290 
1300 


1305 
1310 
1320 
1325 
1330 
1335 
1340 
1345 
1347 
1350 
1352 
1355 
1360 
1370 
1375 
1380 
1390 
1395 
1400 
1410 


1500 
1505 
1510 
1520 
1525 
1530 
1600 
1610 


IF K=17P.“Q?; 

IF K=18P."“R”; 

IF K=19P."S”; 

IF К=20Р.“Т”; 

IF К=21Р.“0”; 

IF K=22P.“V”; 

IF K=23P. “W”; 

IF К=24Р.“Х”; 

IF К=25Р.“У”; 

IF К-26Р.“2”; 

RET. 

F.X=401T0500: Y=RND(30) 

IF Y>13 THEN Y=0 

A(X)=Y:N.X 

F.X=501T0600: Y=RND(8010) 

А(Х)=У:М.Х:ВЕТ. 

P."YOU САМЕ HOME WITHOUT ENOUGH 
BRETCHENKOEL?!?" 

GOS.2000 

P."YOU ARE PROMPTLY LYNCHED!”:G. 160 

IF А(А)=18 G.1330 

G.340 

IF А(В)=972 G.1340 

G.340 

P."HEY! "1:GOS.2000 

P.“YOU MUST'VE GONE THROUGH A BLACK HOLE OR" 
P."SOMETHING, BECAUSE SUDDENLY YOU'RE HOME!” 
GOS.2000:P.“AND WHAT A GREETING YOU RECEIVE!” 
GOS. 2000 

P."THE PEOPLE ALL GATHER AROUND AND SAY — ” 
GOS.2000:G.1300 

P."NO SUCH PLANET!”:P.:P.:F=RND(30):T=T+F 

IF Е >23 THEN С.1390 

G.390 

P."YOU ARE HEREBY STRIPPED OF YOUR COMMAND!" 
GOS.2000: G. 160 

P.“ ‘EVENING STAR’ IS DESTROYED!”: GOS. 2000 

G. 1050 

M=RND(101) 

IF M>97 THEN G.1520 

RET 

P."METEOR STRIKE!!!”: M=RND(34):T=T+M 

IF T>100 G.1100 

RET. 

P."YOU'VE DIVED INTO THE SUN!”: GOS. 2000 

G. 1400 
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2000 Y=RND(1000)+100 
2005 Е.Х= 1TOY:N.X 
2010 RET. 

2100 U=RND(0):T=T+U 
2110 IF T>100 G.1100 
2120 RET. 


Summary of Variables Used 


A Мате selection/AFT/various 
various 
various 
varlous 
various 
FORE/various 
Various 
# of Thytherns 
Not used 
Bretchenkoel on board 
Star name/distance 
Timing 
Timing 
Various 
Planetary scan 
# of planets/% of Bretchenkoel 
Planet # 
Not used 
various 
energy used 
various 
Approach drive power 
Planetary approach 
Timing/various 
various 
Location/various 
Sample Run (excerpt) 


WARP DRIVE? 10 
FORE OR AFT? FORE 


* XC XC X oe X: sehe ЖЖЖ 


YOU ARE 18 SECTORS FROM HOME 
THE NEAREST STAR IS QB*19 


DISTANCE IS 170 LIGHT YEARS 

THERE ARE 5 PLANETS 

THERE ARE 3 THYLTHERNS IN SOLAR SYSTEM 

1 FOR SCAN — 2 FOR SOLAR APPROACH — 3 FOR WARP ? 1 
SCANNING— — 


NexzxcogU0mnoozzxEUmx-momuocotu 


PLANET #1 21 
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PLANET #2 13 


PLANET #3 37 

PLANET #4 8 

PLANET #5 25 

3 FOR WARP, 4 FOR PLANETARY APPROACH? 3 
PLANETARY APPROACH 


TARGET PLANET #? 3 
DISTANCE TO PLANET #3 — 64 
APPROACH DRIVE POWER? 2 
DISTANCE TO PLANET #3 — 34 


APPROACH DRIVE POWER? 2 
TARGET ACHIEVED 


CLOSE RANGE SCAN 

ATMOSPHERE % OF BRETCHENKOEL — PLANET #3 
85% 

LOADING--- 

1275 UNITS OF BRETCHENKOEL COLLECTED 

TOTAL BRETENKOEL COLLECTED -- 2010 

WARP DRIVE? 8 
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High Bid 


This is a simple game. The instructions are included in the 


program and are self-explanatory. 


At first glance it would seem that whoever went first would 


inevitably lose that round, but as you get in some practice you will 
learn how to use strategy to break up the tie games. 


The sample run included is an early game without too much 


strategy being used. See Fig. 1-8 for the flowchart. 


Standard BASIC 


95 
100 
105 
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PRINT " ", “HIGH BID”: PRINT 

PRINT"WE EACH GET THE NUMBERS FROM 1 TO 10." 
PRINT"EACH # MAY BE PLAYED ONLY ONCE. ON EACH" 
PRINT"ROUND WE BOTH BID A # AND THE HIGH BID" 
PRINT"WINS THE ROUND. WHOEVER WON THE LAST" 
PRINT"ROUND GOES FIRST. THE FIRST ROUND WILL" 
PRINT"BE SELECTED RANDOMLY." 

КЕМ* SET CHOICE ARRAYS & SCORE 

FOR Х=1 TO 20 

LET A(X)21 

NEXT X 

LET A=0:LET В=0 

REM* PLAYER SELECT 

FOR Х=1 TO 470 

LET P=INT(RND(0)*2)+1 

NEXT X 

REM* SET COUNTER 

FOR Т=1 TO 10 

IF Р=1 THEN GOTO 180 

PRINT"I GO FIRST" 

GOSUB 120 

GOSUB 150 

GOSUB 170 

LET A(X)=0 

LET A(Y+10)=0 

IF Х-Ү THEN GOTO 205 

IF X>Y THEN GOTO 220 

PRINT“I WIN THIS ROUND” 

LET B=B+1 

LET P=2 

NEXT T 

PRINT: PRINT“THE GAME IS OVER --- FINAL SCORE" 
PRINT:PRINT“YOU”, “ME” 


V 
( «а ) 903 Оз 05 
38095 Р 
TVNIH ANIBd T YSINNOD 32NVAOV 
г= 
EN ІШІ S3A M" нами 
T nf (OX) AV Td 
UOdJM3Sv 
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PRINT А,В 
END 


PRINT “I PLAY --- ”: 

LET Y=INT(RND(0)*10)-+1 
IF A(Y+10)=0 THEN GOTO 125 
FOR Z=1 TO 333: NEXT Z 
PRINT Y 

RETURN 

PRINT"YOUR PLAY"; 
INPUT X 

IF A(X)=0 THEN GOTO 155 
RETURN 

FOR 7=1 TO 400:NEXT Z 
RETURN 

PRINT"YOU GO FIRST" 
GOSUB 150 

GOSUB 120 

GOSUB 170 

GOTO 70 

PRINT“TIE” 

LET P=INT(RND(0)*2)-+1 
GOTO 95 

PRINT“YOU WIN THIS ROUND” 
LET А=А+1 

LET P=1 

GOTO 95 


TRS-80 BASIC 


CLS:P.“ ” “HIGH BID”:P. 

P.“WE EACH GET THE NUMBERS FROM 1 TO 10. EACH” 
P.“# MAY BE PLAYED ONLY ONCE. ON EACH ROUND" 
P."WE BOTH BID A # AND THE HIGH BID WINS THE" 
P.“ROUND. WHOEVER WON THE LAST ROUND GOES" 
P."FIRST. THE FIRST ROUND WILL BE SELECTED" 
P."RANDOMLY" 

Е.Х= 1T020:A(X)=1:N.X:A=0:B=0 
F.X=1T0470:P=RND(2):N.X 

F.T=1TO10 

IF P=1 G.180 

Р.“І GO FIRST":GOS.120 

GOS.150 

GOS.170 

А(Х)=0:А(Ү+10)=0 

IF X=Y G.205 

IF X» Y G.220 


85 Р.“І WIN THIS ROUND" 

90 B=B+1:P=2 

95 N.T 
100 P.:P."GAME IS OVER — FINAL SCORE":P. 
105 P."YOU","ME" 


120 P."I PLAY --- ”: 

125 Y=RND(10) 

130 IF A(Y+10)=0 G.125 
135 F.Z-1TO333:N.Z 

140 P.Y:RET. 

150 IN."YOUR PLAY”;X 
155 IF A(X)=0 G.150 

160 RET. 

170 F.Z=1T0400:N.Z:RET. 
180 P."YOU GO FIRST" 
185 С05.150 

190 GOS.120 

195 GOS.170 

200 G.70 

205 ~P.“TIE”:P=RND(2) 
210 G.95 

220 P."YOU WIN THIS ROUND" 
225 A=A+1:P=1 

230 0.95 


Sample Run 


HIGH BID 


WE EACH GET THE NUMBERS FROM 1 TO 10. 
EACH # MAY BE PLAYED ONLY ONCE. ON EACH 
ROUND WE BOTH BID A # AND THE HIGH BID 
WINS THE ROUND. WHOEVER WON THE LAST 
ROUND GOES FIRST. THE FIRST ROUND WILL 
BE SELECTED RANDOMLY 

I GO FIRST 

I PLAY --- 7 

YOUR PLAY?9 

YOU WIN THIS ROUND 

YOU GO FIRST 

YOUR PLAY?3 

I PLAY — 4 

I WIN THIS ROUND 

I GO FIRST 

I PLAY --- 2 
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YOUR PLAY?3 
YOUR PLAY?2 

TIE 

I GO FIRST 

I PLAY --- 5 

YOUR PLAY?6 

YOU WIN THIS ROUND 
YOU GO FIRST 
YOUR PLAY?1 

I PLAY --- 3 

I WIN THIS ROUND 
I GO FIRST 

I PLAY --- 10 

YOUR PLAY?2 
YOUR PLAY?4 

I WIN THIS ROUND 


I GO FIRST 
I PLAY --- 8 


YOUR PLAY?10 
YOU WIN THIS ROUND 
YOU GO FIRST 
YOUR PLAY?8 
I PLAY --- 9 
I WIN THIS ROUND 
I GO FIRST 
I PLAY --- 6 
YOUR PLAY?7 
YOU WIN THIS ROUND 
YOU GO FIRST 
YOUR PLAY?5 
I PLAY --- 1 
YOU WIN THIS ROUND 
GAME IS OVER --- FINAL SCORE 
YOU ME 
5 4 


Summary of Variables Used 


PLAYER'S SCORE 
COMPUTER'S SCORE 
PLAYER SELECT 

TURN COUNTER 
TIMING/PLAYER'S BID 
COMPUTER'S BID 


< ра — Ç 0 > 
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High Bid li 

This game is essentially similar to theoriginal High Bid game, 
but there is a greater element of chance to sustain continued 
interest. 

Both the player and the computer still get ten numbers to play, 
but instead of a fixed 1 to 10, each of the numbers is selected 
randomly. Each number may be played only once each time it 
appears in your hand. To make things a little trickier, you are not 
told what numbers the computer is holding (it only looks at your 
hand when making a validity check, so the game is fair). 

Since this game is played the same way as the other version, 
no sample run is included. 


Standard BASIC 


5 PRINT:PRINT:PRINT 
10 PRINT" ","HIGH BID II" 
12 PRINT 
14 FOR X=1 TO 20 
16 LET A(X)=INT(RND(0)*10)+1 
18 NEXT X 
20 LET A=0:LET B=0:LET G=1 
22 LET P=INT(RND(0)*2)+1 
25 IFG>10THEN GOTO 130 
30 PRINT"YOUR HAND -- ”; 
32 FOR X-1TO 10 
34 LET Ү-А(Х) 
36 IF У=0 THEN GOTO 40 
38 PRINT Y;" ”; 
40 NEXT X:PRINT 
45 IF P=1 THEN GOTO 200 
50 PRINT“I GO FIRST" 
55 LET Х=И 
60 IF A(X)>0 THEN GOTO 70 
62 LET X=X+1 
65 GOTO60 
70 LET Y-A(X) 
75 LET А(Х)=0 
80 PRINT “ГЫ. PLAY — ”; 
85 GOSUB 330 
90 PRINT Y 
95 GOSUB 275 
100 IF X=Y THEN GOTO 150 
105 IF X>V THEN GOTO 170 
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110 
112 
114 
116 
118 
120 
130 
135 
140 
145 
150 
155 
160 
170 
175 
180 
185 
200 
202 
204 
206 
208 
210 
215 
220 
225 
230 
235 
240 
250 
255 
260 
265 
275 
280 
285 
290 
295 
300 
305 
310 
315 
320 
330 
335 
340 
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PRINT “I WIN THIS ROUND” 
LET B=B+1 

LET Р=2 

LET C=C+1 

GOSUB 330 

GOTO 25 
PRINT:PRINT“GAME IS OVER — FINAL SCORE" 
PRINT“YOU”, “ME” 
PRINT A,B 

END 

PRINT“TIE” 

LET P=INT(RND(0)*2)+1 
GOTO 116 

PRINT“YOU WIN THIS ROUND” 
LET A=A+1 

LET Р=1 

GOTO 116 

PRINT“YOU GO FIRST” 
GOSUB 275 

LET Y=X+1 

LET C=0 

PRINT“I'LL PLAY --- ”; 
IF Y=11 THEN Y=1 

FOR Z=11 TO 20 

IF A(Z)=Y THEN C=Z 
NEXT 7 

IF C>0 THEN GOTO 250 
LET Y=Y+1 

GOTO 210 

LET A(C)=0 

PRINT Y 

GOSUB 330 

GOTO 100 
PRINT“YOUR PLAY”; 
INPUT X 

LET C=0 

FOR Z=1T010 

IF A(Z)=X THEN LET C=Z 
NEXT Z 

IF C>0 THEN GOTO 320 
PRINT“INVALID PLAY” 
GOTO 275 

LET A(C)=0 

FOR Z=1 TO 333 

NEXT Z 

RETURN 


TRS-80 BASIC 


CLS:P.“ ” “HIGH BID IT": P. 
F.X=1T020:A(X)=RND(10):N. X. 
P=RND(2):A=0:B=0:G=1 
IF G<10 G. 130 
“YOUR HAND --- ”; 
Е.Х=1ТО 10: Y=A(X):IF Y=0 С. 40 
Pu 
N.X.:P. 
IF РЕ! С. 200 
P.“ I GO FIRST”:X=11 
IF ACX)>0 С. 70 
X=X+1:G.60 
=A(X):A(X)=0 
P."TLL PLAY --- ”; 
GOS. 320 
Р.У 
GOS. 275 
IF Х=У С. 150 
IF Х>У С. 170 
P.“I WIN THIS ROUND" 
B=B+1:P=2 
G=G+1:GOS.320 
G.20 
P.:P."GAME IS OVER -- FINAL SCORE" 
P."YOU","ME" 
Р.А,В 
END 
P."TIE" 
P=RND(2) 
G.120 
P.“YOU WIN THIS ROUND” 
A=A+1:P=1:G.120 
P.“YOU GO FIRST” 
GOSUB 275 
Y=X+1:C=0:P.“TLL PLAY --- ”; 
IF Y=11 THEN Y=1 
F.Z=11 TO 20 
IF A(Z)=Y THEN C=Z 
N.Z 
IF C>0 G. 250 
Y=Y+1:G. 215 
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275 
280 
285 
290 
295 
300 
305 
310 
320 
325 
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IN. “YOUR РГАУ”;Х 
C=0:F.Z=1TO 10 

IF A(Z)=X THEN C=Z 
N.Z 


IF C>0 G. 310 
Р. “INVALID PLAY” 


G.275 

A(C)=0 
F.Z=1T0333:N.Z 
RET. 


Balancing The Scales 


This game is simple in concept, but playing it can be quite 
tricky. The computer gives you 25 weights of up to 10 grams each, 
and you have to place them all on a four-way scale arranged like 
this: 

А 
C D 
B 

If two opposite plates (A and B or C and B) have more than a 5 
gram difference, the scale assembly will topple over. Also, if the 
two crossbeams (A+B and C+D) have more than а 7.5 gram 
difference, the scale willtopple. 

If you manage to get all 25 weights on the scale without 
toppling it, you win. If the scale topples, you lose. 

An additional note: once a weight has been placed on the scale, 
it can't be moved. See Fig. 1-9 for the flowchart. 


Standard BASIC 


5 PRINT:PRINT 

7 PRINT" ","BALANCING THE SCALES": PRINT 
10 REM*SET WEIGHTS & CLEAR SCALE * 
12 FORX-1TO25 

15 LET Y=INT (RND(0)*100)+1 

17 LET Y=Y/10:LET A(X)-Y 

20 NEXTX 

22 LET A=50:LET B=60 

25 LETC=70:LET D=80 

30 LETE=0:LETF=0 

32 LETG=0:LET H=0 

35 REM*THE PLAY * 

37 FORX=1T0470:PRINT:NEXT X 
40 PRINT “THE AVAILABLE WEIGHTS ARE”, 
42 FORX=1T025 
45 PRINT X; “ი А(Х); “ * 

47 NEXTX 

50 PRINT:PRINT:PRINT“SCALE RANKING” 
55 LETX=10 

60 IFE-XTHENPRINT “ტ---”:X, 
65 IF F=X THEN PRINT“B--”;X, 

70 IF G=X THEN PRINT“C--”:X, 

75 IFH=X THEN PRINT“D---”;X, 

80 IF X=0THEN GOTO 90 

82 LET X=X-.1 
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GOTO 60 

PRINT"WHICH WEIGHT?" 
INPUTW 

[Е W>25 THEN GOTO 135 

IF A(W)=0 THEN GOTO 135 
PRINT"WHICH SCALE?" 
INPUTS 

FOR X=1TO390:NEXT X 

IF S=A THEN GOTO 140 

IF S=B THEN GOTO 145 

IF S=C THEN GOTO 150 

IF S=D THEN GOTO 155 
REM* INVALID ENTRY* 
PRINT"DON'T GET CUTE, PAL!” 
GOTO 90 

LET E=E+A(W) 

GOTO 160 

LET F=F+A(W) 

GOTO 160 

LET G=G+A(W) 

GOTO 160 

LET H=H+A(W) 

LET A(W)=0 

REM* TOPPLE CHECK* 

IF E>(F+5) THEN GOTO 250 
IF F>(E+5) THEN GOTO 250 
IF G>(H+5) THEN GOTO 250 
IF H>(G+5) THEN GOTO 250 
LET I=E+F:LET J=G+H 

IF I» (J+7.5) THEN GOTO 250 
IF J>(+7.5) THEN GOTO 250 
REM* REMAINING WEIGHT CHECK* 
LET Y=0 

FOR X=1TO25 

LET Y=Y+A(X) 

NEXT X 

IF Y=0 THEN GOTO 225 
GOTO 35 

PRINT“THAT WAS THE LAST WEIGHT”: PRINT 
FOR X=1T0333:NEXT X 
PRINT"YOU WIN!” 

END 

PRINT“SCALE STRUCTURE TOPPLES!”: PRINT 
FOR X=1TO333:NEXT X 
PRINT“YOU LOSE!” 

END 


SET WEIGHTS & 
CLEAR BALANCE 


INPUT 
SCALE 
CHOICE 


LOAD SCALE 


"SCALES 
IMBALANCED? 


ANY WEIGHTS 


YES LEFT? 


SCALES TOPPLE 


Fig. 1-9. Flowchart for Balancing the Scales. 


TRS-80 BASIC 
10 CLS:P.P:.P“”, BALANCING THE SCALES”: P. 
15 F.X-1TO25 
20 Y-RND (100)/10: A(X) -Y 
25 М.Х:А=50:В=60:С=70 
30 D=80:E=0:F=0:G=0:H=0 
35 F.X-1TO470:N.X 
40 CLS:P.“THE AVAILABLE WEIGHTS ARE", 
45 F.X=1T0O25:P.X;“*"; А(Х);“”; 
50 N.X:P.:P.:P.“SCALE RANKING 
55 X=10 
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IF E=X Р.“А.—”;Х, 

IF F=X P.“B—”; X, 

IF G=X P.“C—”; X, 

IF H= XP.“D—”; X, 

JF X=0 G.90 

X=X—.1:G.60 

IN."WHICH WEIGHT”; W 

IF W>25G. 135 

IF A(W)=0G. 135 

IN. “WHICH SCALE”; S 

F.X=1TO390:N.X 

IF S=A G. 140 

IF 5=В 0.145 

IF S=C G.150 

IF S=D G.155 

P.“DON'T GET CUTE, PAL!”:G.90 

E=E+A(W)::G. 160 

F=F+A(W):G.160 

G=G+A(W):G. 160 
H=H+A(W) 

A(W)=0 

IF E>(F-+5) G.250 

IF F>(E+5) G.250 

IF G>(H+5) G.250 

IF H>(G+5) G.250 

[=E+F:J=G+H 

IF I>J+7.5) G.250 

IF J>d+7.5) G.250 

Y=0:F.X=1T0 25 
=Y+A(X):N.X 

IF Y=0G.225 

G.35 

P.“THAT WAS THE LAST WEIGHT”:P. 

F.X=1T0333:N.X 

P.“YOU WIN!” 

END 

PRINT“SCALE STRUCTURE TOPPLES!” 

F.X=1TO333:N.X 

P. “YOU LOSE!” 

END 


Summary Of Variables Used 
ka C,D Scalepositions 
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Weight of scale A 
Weight of scale B 
Weight of scale C 


Weight of scale D 
Weight of crossbar AB 
Weight of crossbar CD 
Scale choice 

Weight choice 

Timing 

Various 


< bd z: tp — — rr 


Sample Run 
BALANCING THE SCALES 


THE AVAILABLE WEIGHTS ARE 1*3.32*7 3*2.9 


4*5.55*86*7.1 7*7.7 8*9.69*6.2 10*1.7 
11*8.1 12*1.9 13*4 14*3.8 15*6.5 16*8.8 
17*9.4 18*2.6 19*7 20*4.221*7.922*5.3 
23*124*0.725* 6.2 

SCALE RANKING 

А-0 В-0 CO D-0 
WHICH WEIGHT? L. 

WHICH SCALE? А... 


THE AVAILABLE WEIGHTS ARE 1*0*7.3*2.9 
4*5.55*86*7.17*7.78*9.69*6.210*1.7 
11*8.112*1.913*4 14*3.8 15*6.5 16*8.8 
17*9.4 18*2.6 19*7 20*4.221*7.922*5.3 
23*1 24*0.7 25*6.2 

SCALE RANKING 

А--3.3  B-0 C-0 0-0 
WHICH WEIGHT?1_ 

DON'T GET CUTE, PALI 

WHICH WEIGHT? 3. 

WHICH SCALE? С 


THE AVAILABLE WEIGHTS ARE... 
(from here оп won't bother repeating the 
weights. Whena weight is used it becomes 


A-33  C-29 BO DO 
WHICH WEIGHT? 4. 
WHICH SCALE? B— 


THE AVAILABLE WEIGHTS ARE 
SCALE RANKING 
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В--5.5  A-33 C--2.9  D-0 
WHICH МЕІСНТ? 2. 
WHICH SCALE? О... 


THE AVAILABLE WEIGHTS ARE 
SCALE RANKING 

D-7 B-5.5  A-33 С--2.9 
WHICH WEIGHT? 5. 

WHICH SCALE? A— 

SCALE STRUCUTRE TOPPLES! 
YOU LOSE! 
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Memory Test 


You have to keep alert to win this two-player game. There аге 
10 rounds. On each round three numbers are separately flashed on 
the screen for a brief period of time (which gets progressively 
shorter on each round). If you want to alter the flash time, change 
the value of C in line 35. 

After displaying the three numbers, the computer asks one of 
the players (randomly selected) to repeat one of the numbers. Then 
the other player is.asked for one of the remaining numbers. А 
correct entry by either player scores a point for that player. 

After 10 rounds the total score for both players is displayed 
andthe game ends. 

In the easy level the numbers can be up to three digits. The 
medium level numbers go up to four digits, and the hard numbers 
have up to five digits. 

Since this is a memory game, there would be no point in 
including a sample run. See Fig. 1-10 for the flowchart. 


Standard BASIC 


5 PRINT:PRINT:PRINT 
10 PRINT“”,“MEMORY TEST”: PRINT 
12 PRINT"PLAYER #1”; 
15 INPUT A$ 
17 PRINT“PLAYER #2”: 
20 INPUT B$ 
25 LET A=0:LET B=0 
30 LETE=10:LET M=100:LET H=1000 
35 LETC=150 
40 PRINT“EASY, MEDIUM OR HARD GAME”; 
45 INPUTG 
50 REM* BEGIN THE PLAY “ 
55 FORK-ITO10 
57 LET X=INT(RND(0)*100)*INT(RND(O)*G) 
60 LET Y=INT(RND(0)*100)* INT(RND(0)*G) 
62 LET Z=INT(RND(0)*100)*INT(RND(0)*G) 
65 PRINT“ENTER 1 WHEN READY” 
70 МРОТ] 
72 КЕМ*ЕГАЗН NUMBERS" 
75 LET M=INT(RND(0)*888)+1 
77 FORN=1TOM:NEXTN 
80 ЕОКМ=1 ТО 50:РКІМТ:МЕХТ М 
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PRINTX 

FOR D=1 TO C:NEXTD 

FOR М=1ТО 50:PRINT: NEXT М 
PRINT Y 

FOR D=1 TOC:NEXT D 

FOR N=1 TO50:PRINT: NEXT N 
PRINT Z:M=M+100 

FOR D=1TO C:NEXT D 

FOR N=1 ТО М:РКІМТ: NEXT N 
LET T=INT(RND(0)”2) 

IF T=1 THEN GOTO 155 

PRINT A$;" WHAT WAS THE”; 
LET F=0 

LET H=INT(RND(0)*3)+1 

IF H=1 THEN GOSUB 200 

IF H=2 THEN GOSUB 220 

IF H=3 THEN GOSUB 240 

LET A=A+F 

IF T=1 THEN GOTO 195 

PRINT B$;" WHAT WAS THE”; 
LET F=0 

LET I=INT(RND(0)*3)+1 

IF I=H THEN GOTO 160 


IF I=1 THEN GOSUB 200 
IF I=2 THEN GOSUB 220 


IFI=3 THEN GOSUB 240 
LET B=B+F 


IF T=1 THEN GOTO 120 
NEXT К 

GOTO 275 

PRINT“FIRST NUMBER"; 
INPUT W 

IF W=X THEN GOTO 260 
PRINT“ NO, IT WAS”; X 
RETURN 
PRINT“SECOND NUMBER"; 
INPUT W 

IF W=Y THEN GOTO 260 
PRINT"NO, IT WAS”; Y 
RETURN 

PRINT“ THIRD NUMBER”; 
INPUT W 

IF W=Z THEN GOTO 260 
PRINT“NO, ІТ WAS ”;Z 
RETURN 

PRINT“ CORRECT” 


LETF=1 

RETURN 

PRINT“GAME IS OVER" 
PRINT АФ “СОТ”; A; “RIGHT” 
PRINT"AND ”;B$;“ СОТ”; В 
END 


TRS-80 BASIC 


CLS:P.:P.“”, “MEMORY ТЕЗТ”:Р. 
IN. “PLAYER #1”; A$ 
IN.“PLAYER £25 B$ 
E=10:M=100:H=1000 
IN."EASY, MEDIUM OR HARD САМЕ”; С 
A=0:B=0:C=150 

F.K=1TO10 
X=RND(100)*RND(G) 
Y=RND(100)“RND(G) 
Z=RND(100)*RND(G) 

IN. “ENTER 1WHEN READY ”;J 
M=RND(888):F.N=1TOM:N.N 
CLS:P.X 

F.D-1TOC:N.D 

CLS:P.Y 

F.D=ITO C:N.D 

CLS:P.Z 

F.D-1TO C:N.D:C=C- 10 
CLS:T=RND(2):F. NZITOM:N.N 
IF T=1 G.155 

P.A$; WHAT WAS THE”: 
H=RND(8):F=0 

IF H=1 GOS. 200 

IF H=2 GOS. 220 

IF H=3 GOS. 240 

A=A+F 

IF T=1G.195 

P.B$; “WHAT WAS THE”; 
I-RND(3::F-0 

IF I-HG. 160 

IFI-1GOS.200 
IFI=2GOS.220 

IFI=3GOS. 240 

B=B+F 

IF T=1G.120 

N.K:G.275 

IN.“FIRST NUMBER”; W 

IF W=X G.260 
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210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
275 
280 
285 


P."NO, IT WAS 5X 

RET. 

IN. “SECOND NUMBER”; W 
IF W=Y G. 260 

P.“NO, IT WAS”; Y 

RET. 

IN.“THIRD NUMBER”; W 
IF W=Z G.260 

P."NO, IT WAS ”;Z 

RET. 

P.“CORRECT”:F=1 

RET. 

Р.“САМЕ IS OVER" 

Р.А$;“ GOT ”;A;“ RIGHT AND 5B$;" СОТ”; В 
END 


Summary of Variables Used 


A$ 
B$ 
A 


М е шшщ ж т m ото O G о 
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Player #1 

Player #2 

А$ score 

B$ score 

Flash timing 
Flashtiming 

Easy game 

Correct guess? 

Game level 

Hard game/A$ number selection 
B$ number selection 
Round start 

Round counter 
Medium game/Timing 
Timing 

Player select 

Guess 

First number 

Second number 

Third number 


What Comes Next 


If you enjoy solving mathematical puzzles, this game is for 


you. The computer generates a sequence of numbers in the pattern 
of A= ((A+B)*C)—D. It gives you the first three numbers in the 
sequence and you have to figure out what the next number will be. 
If you guess wrong the computer will give you the correct number, 
and you must determine the next step in the sequence. Once you 
correctly identify a number, the game moves on to the next 
sequence. If you have no idea what the next number might be you 
can enter "E" to pass. An E counts as ahalf try. 


The computer keeps track of how many tries it takes you to get 


through ten sequences. Obviously, the lower your score, the 
better. See Fig. 1-11 for the flowchart. 


Standard BASIC 


LET S=0 

FOR X= 1tol0 

LET T=1 

LET A=INT(RND(0)*10)+1 
LET B=INT(RND(0)*100)+1 
LET Z=INT(RND(0)*10)+1 
IF Z>6 THEN LET B=0 

LET C=INT(RND(0)*50)+1 
LET Z=INT(RND(O)*10)+1 
IF Z>4 THEN LET C=1 

LET D=INT(RND(0)*25)+1 
LET Z=INT(RND(0)*10)+1 
IF Z>3 THEN LET D=1 
REM* DISPLAY INITIAL SERIES* 
FOR Y=1TO3 

PRINTA, 

LET A=((A+B)*C)—D 
NEXT Y 

PRINT 

REM* PLAYER'S GUESS * 
LET E=0.5 

PRINT"WHAT COMES NEXT? (ENTER E TO PASS)”; 
INPUTF 

IF F=E THEN GOTO 95 

IF F=A THEN GOTO 110 
PRINT “INCORRECT”, 

LET T=T+0.5 
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95 LET T=T+0.5 
97 LETA=((A+B)*C)—D 
100 PRINTA 
105 GOTO70 
110 PRINT“CORRECT!”,T;“TRIES” 
115 LET 5=5+Т 
120 PRINT"YOURSCORE SOFARIS "5S 
125 NEXTX 
130 РАМТ“САМЕ OVER" 
135 IFS«13 THEN GOTO 160 
140 IFS«20 THEN GOTO 170 


145 IFS230 THEN GOTO 180 

150 END 

160 PRINT"FANTASTIC!" 

165 END 

170 PRINT"VERY GOOD" 

175 END 

180 PRINT"FRANKLY, YOU DID LOUSY" 
185 END 


TRS-80 BASIC 
10 5-0 
15 F.X-1TO10T-21 
20 A=RND(10):B=RND(100):Z=RND(10) 
25 IFZ>6 THEN B=0 
30 C=RND(50):Z=RND(10) 
35 IFZ>4THENC=1 
40 D=RND(25):Z=RND(10) 
45 IFZ>3THEND=1 
50 F.Y-1TOS3 
55 Р.А, 
60 A=((A+B)*C)—D 
65 М.У 
70 Р.:Е=0.5 
75 IN."WHAT COMES NEXT? (ENTER E TO PASS) SF 
80 IFF=EG.95 
85 IFF=AG.110 
90 P.“INCORRECT”,:T=T+0.5 
95 T=T+0.5:A=((A+B)*C)—D 
100 P.A:G.70 
110 P.“CORRECT”,T;“ TRIES" 
115 S=S+T:P.“YOUR SCORE SO FARIS”;S 
120 М.Х 
125 IFS<13G.150 


130 IFS<20G.160 
135 IFS>30G.170 


145 END 

150 P."FANTASTIC!" 

155 END 

160 P."VERY GOOD" 

165 END 

170 P."FRANKLY, YOU DID LOUSY.” 
175 END 


SET SCORE 
TOZERO 


FOR Х=1 ТО10 


SELECTSEQUENCE 
NUMBERS 


DISPLAY 1st 3 
NUMBERS 


Fig. 1-11. Flowchartfor What Comes Next. 
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Sample Run (excerpt) 


7 99 111 

WHAT COMES NEXT? (ENTER E TO PASS)? 222222 
INCORRECT 11143 

WHAT COMES NEXT? (ENTER E TO PASS)? 111595 
CORRECT! 2TRIES 

YOUR SCORE SO FAR IS2 

3. A „I 

WHAT COMES NEXT? (ENTER E TO PASS)? 0 
CORRECT! 1 TRIES 

YOUR SCORE SO FAR IS3 

9 17 33 

WHAT COMES NEXT? (ENTER E TO PASS)? 66 
INCORRECT 65 

WHAT COMES NEXT? (ENTER E TO PASS)? E 

129 

WHAT COMES NEXT? (ENTER E TO PASS) ?357 
CORRECT! . 2.5 TRIES 

YOUR SCORE SO FAR IS 5.5 

10 968 10538 

WHAT COMES NEXT? (ENTER E TO PASS)? 11428 
INCORRECT 106238 

WHAT COMES NEXT? (ENTER E TO PASS)? E 
1063238 

WHAT COMES NEXT? (ENTER E TO PASS)? 1063328 
CORRECT! . 2.5 TRIES 


YOUR SCORE SO FAR [58 
Summary of Variables Used 

А-О SEQUENCE VARIABLES 
E PASS 

F PLAYER'S GUESS 

S TOTALSCORE 

T ROUND SCORE 

X ROUND COUNT 

Y TIMING 

Z VARIOUS 
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Go Fish 


Here's a computerized version of a popular card game. The 
"deck" consists of up to four each of 16 different card types, 
identified by the letters A through P. The object is to make as many 
matches as possible. 

On each play you are shown the cards in your hand and the 
number of cards in the computer's hand. You first make any 
matches you can (and the computer does likewise); then you 
request a card. If the computer has it, the card is exchanged. If not, 
you take the top card from the main deck. Then the computer takes 
a similar turn (it does not examine your hand until after it has made 
its request, so it doesn't cheat). 

The game is over when either of the players has no cards in 
hand, or when the main deck runs out of cards. The winner is the 
player with the highest number of matches. All card values count 
the same. See Fig. 1-12for the flowchart. 

Standard BASIC 
3 FORX=1T0302 
5 PRINT 
7 LETA(X)=0 
10 МЕХТХ 
12 PRINT”, “GO FISH”: PRINT 
15 FORX=1TO4 
17 FOR Y=1TO16 
20 LETZ-INT(RND(0)*100)2-201 
22 IFA(Z)>0THEN GOTO 20 
25 LETA(Z)=Y 
27 NEXTY 
30 МЕХТХ 
31 LETQ=200 
32 LET A=1:LET B=2 
33 LET C=3:LET D=4 
34 LETE=5:LET F=6 
35 LET G=7:LETH=8 
36 LETI=9:LETJ=10 
37 LETK=11:LETL=12 
38 LETM=13:LETN=14 
39 LETO=15:LET P=16 
40 REM*OPENING DEAL* 
42 FORX=1TO7 
45 LETQ=Q+1 
46 IFA(Q)-O THEN GOTO 45 
47 LETAQO-A(QXLET A(Q)=0 
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МЕХТХ 

FOR Х=101 TO 107 

LET Q=Q+1 

IF A(Q)=0 THEN GOTO 51 

LET A(X)=A(Q): LET A(Q)=0 
NEXT X 

REM*THE PLAY* 

PRINT: PRINT“ YOUR HAND---- 5 


FOR X=1 TO 100: LET Y=A(X) 
IF Y>0 THEN GOSUB 240 


NEXT X 
PRINT: PRINT: PRINT“ MY HAND---”; 
FOR X=101 TO 200 

LET Y=A(X) 

IF Y=0 THEN GOTO 80 

LET 2=Х- 100 

PRINT Z;“.)X ”; 

NEXT X 

PRINT: PRINT 

GOTO 335 

PRINT“ WHAT DO YOU NEED"; 
INPUTS 

FOR X=101 TO 200 

LET Y=A(X) 

IF Y=S THEN LET T=X 

NEXT X 

IF T>0 THEN GOTO 470 
PRINT“GO FISH!" 
FORZ=1TO470:NEXT 7 
PRINT:PRINT 

LET Y=A(Q) 

IF Y=O THEN GOSUB 530 

LET A(Q)=0: LET X=1:LET Q=Q+1 
IF A(X)=0 THEN GOTO 120 
LET X=X+1 

GOTO 112 

LET A(X)=Y 

PRINT“ YOU DREW A’; 

GOSUB 245 

PRINT: PRINT 

GOSUB 330 

PRINT“I NEED A”; 

LET X=200 

IF A(X)>0 THEN GOTO 145 
LET X=X-1 

GOTO 135 


SHUFFLE ОЕСК 


VALIDATE 
MATCH 


PRINT HANDS 


CAN PLAYER MAKE 
ANY PAIRS? 


YES 


VALIDATE MATCH] 


YES (сито 


GAME OVER eens 
END 
NO 
YES 
NO 
WHAT DOES 
PLAYER 
NEED? 


WHAT DOES 
COMP NEED? 


GOFISH 


GOTOPOINT 
A 


Fig. 1-12. Flowchart for Go Fish. 
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145 LETY=AQ) 
146 GOSUB 245 
148 PRINT 
150 LETT=0 
152 FOR X=1TO100 
154 LETS=AQ) 
156 ІЕ5-ҮТНЕМІЕТТ-Х 
158 NEXTX 
160 GOSUB 330 
165 ІЕТ>ОТНЕМ С0Т0490 
167 PRINT"IMUST GO FISH" 
170 LET Y-A(QXLETX-101 
172 IFY=OTHEN GOSUB 530 
174 LET A(Q)=0:LET Q=Q+1 
176 IFA(X)=0 THEN GOTO 185 
178 LET X=X+1 
180 GOTO176 
185 LETA(X)=Y 
190 GOSUB 330 
195 GOSUB330 
200 GOTO55 
240 PRINT X;".)"; 
245 IF Y=1THENPRINT “A”; 
250 IFY=2THENPRINT“B”; 
255 IFY=3THENPRINT“C”; 
260 IF Y=4 THEN PRINT“D”; 
265 IFY=5 THEN PRINT“E”; 
270 IFY=6 THEN PRINT“F”; 
275 IF Y=7 THEN PRINT “С”; 
280 IF Y=8 THEN PRINT“H”; 
285 IFY=9THEN PRINT “I”; 
290 IF Y=10 THEN PRINT “I; 
295 IF Y=11 THEN PRINT “К”; 
300 IF Y=12 THEN PRINT “L”; 
305 IF Y=13THEN PRINT “М”; 
310 IFY=14 THEN PRINT “№”; 
315 IF Y=15 THEN PRINT “О”; 
320 IF Y=16 THEN PRINT “Р”; 
325 RETURN 
330 FORZ=1T0555:NEXT Z 
| 333 RETURN 
= 335 LET Y=50:LET N=14 
337 PRINT“CAN YOU MATCH ANY PAIRS"; 
340 INPUTU 
ч 342 IFU=N THEN GOTO 380 
| 344 PRINT “CARD#’; 


INPUTS 

PRINT"AND CARD#”; 

INPUTT 

IF A(S)= THEN GOTO 360 

IF S=T THEN GOTO 360 

IF A(S)=A(T) THEN GOTO 365 
PRINT"INVALID MATCH" 

GOTO 335 

LET Y=A(S): LET A(S)=0 

LET A(T)=0: LET T=A(301) 

LET T=T+1:LET А(301)=Т 
PRINT"YOU'VE MATCHED A PAIR OF”; 
GOSUB 245 

GOTO 335 

FOR X=101 TO 200: LET R=A(X) 

IF R=0 THEN GOTO 400 

FORZ-101 TO 200 

IFZ-X THEN GOTO 395 

LET S=A(Z) 

IF R=S THEN GOSUB 430 

NEXT 7 

NEXT X 

IF Q>275 THEN GOTO 465 

LET W=0 

FOR X=1 TO 100: LET W=W+A(X) 
NEXT X 

IF W=0 THEN GOTO 440 

LET W=0 

FOR X=101 TO200:LET W=W+A(X) 
NEXT X 

IF W=0 THEN GOTO 460 

LET T=0 

GOTO 85 

LET Y=R 

PRINT“T’VE MATCHED A PAIR OF"; 
GOSUB 245 

LET R--5:LET A(X)=0:LET A(Z)=0 
LET T=A(302): LET T=T+1:LET А(302)-Т 
RETURN 

PRINT“YOU ARE OUT OF CARDS” 
LET X=A(301): LET Y=A(302) 
PRINT"YOU MATCHED”; X; “PAIRS” 
PRINT“AND I MATCHED”; Y; “PAIRS” 
END 

PRINT“I AM OUT OF CARDS” 

GOTO 442 
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PRINT"THE DECKIS OUT OF CARDS" 
GOTO 442 

LET A(T)=0 

FOR X=1 T0100 

IF AQX)=O THEN СОТО 485 
NEXT X:PRINT: PRINT 
GOSUB 330 

GOTO 130 

LET A(X)=S:LET 5-0 
GOTO 480 

LET A(T)=0 

FOR X=1TO 100 

IF AX)=0 THEN GOTO 515 
NEXT X 

GOSUB 330 

GOTO 70 

LET A(X)=S 

LET S=0 

GOTO 505 

LET Q=Q+1 

LET Y=A(Q) 

IF Y=0 THEN GOTO 530 
RETURN 


TRS-80 BASIC 


10 


CLS:P.:P.“”, “GO FISH”: F.X=1T0302 
A(X)=0:N.X 
F.X=1TO4:F.Y=1TO16 
Z=RND(100)+200 

IF A(Z)»0G.25 

A(Z) Y:N. Y:N.X:Q=200 
Е.Х-1Т07 

Q=Q+1 

IF A(Q)=0G.42 

A(X)=A(Q): A(Q) 20: N. X 
F.X=101 TO 107 

Q=Q+1 

IF A(Q)=0 G. 50 
A(X)=A(Q):A(Q)=0:N.X 
CLS:P.“YOUR HAND---”;:F.X=1 TO 100: Y=A(X) 
IF Y>0 GOS. 240 
N.X:P.:P.:P.“MY HAND---”; 
F.X=101T0200: Y=A(X) 

IF Y=0G.80 

7=Х- 100: P.Z;".)X ”; 
N.X:P.:P.:G.335 


IN.“WHAT DO YOU МЕЕР”;5 
F.X=101 TO 200: Y=A(X) 
IF YS THEN T=X 

N.X:IF T20G.470 

P."GO FISH!”:F.Z=1TO470:N.Z:P.:P. 
Y=A(Q) 

IF Y=0 GOS. 530 
A(Q)=0:X=1:Q=Q+1 
IFA(X)=0G.120 
X=X+1:G.110 
A(X)=Y:P.“YOU DREW A”;:GOS.245 
P.:P.:GOS.330 

P.“INEED A”;:X=200 

IF AX) >0G.145 
X=X—1:G.135 
Y=A(X):GOS.245:P.:P. 
T=0:F.X=1T0100:S=A(X) 
IF S=Y THEN T=X 
N.X:GOS.330 

IF T>0 G.490 

P.“I MUST GO FISH”: Y=A(Q) 
IF Y=0 GOS.530 
A(Q)=0:X=101:Q=Q+1 

IF A(X)=0G.185 
X=X+1:G.178 
A(X)=Y:GOS.330 

G.55 

ჩა.“ 

IF Ү=1Р.“А”; 
ТЕҮ=2Р.“В”; 

IE Y=3P С" 

IF Y=4P.“D”; 

IF Y=5P.“E”; 

IF Y=6P.“F”; 

IF Y=7 P.“G”; 

IF Y=8 P.“H”; 

IF Y=9P.“1”; 

IF У=10Р.“]”; 

IF Y=11P.“K”: 

JEY=I12P “L”: 

IF Y=13 P.“M”; 

IF Y-14P."N 5 
ЕУ=15Р.“О”; 

IF Y=16P.“P”; 

RET. 
F.Z-1TO555:N.Z:RET. 
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540 


Y=50:N=14:IN.“CAN YOU MAKE ANY PAIRS SU 
IF U=N G.380 

IN. “CARD#”); S:IN. “AND CARD#”; T 
IFA(S)=0G.360 

IF S=TG.360 

IF А(5)--А(Т) G.365 

P."INVALID MATCH":G.335 
У=А(5):А(5)=0:А(Т)=0:Г=А(301):Т+1:А(301)=Т 
P.“YOU’VE MATCHED A PAIR OF ";:GOS.245:G.335 
Е.Х=101Т0 200:R=A(X): IF R=0 G.400 
F.2—101T0200:IF X=Z G.395 

S=A(Z):IF R=S GOS.430 

N.Z 


N.X:IF Q > 275 G.465 
W=0:F.X=101T0200: W=W+A(X):N.X:T=0 
IF W=0G. 460 
W=0:F.X=1T0100:W=W+A(X):N.X 
IF W=0G.440 
G.85 
Y=R:P.“I?’VE MATCHED A PAIR OF ”;:GOS.245 
R=—5:A(X)=0: e Т=А(302):Т=Т+1 
А(302)=Т:Р.:К 
P.“YOU ARE OUT OF CARDS” 

X=A(301): Y=A(302):P; “YOU MATCHED ”;X;“ PAIRS" 
P.“AND I MATCHED”: Y; “ PAIRS” 
END 
P.“TAM OUT OF CARDS”: G.445 
P.“THE DECK IS OUT OF CARDS":G.445 
A(T)=0:F.X=1TO 100:IF A(X)=0 С. 485 
N.X:P.:P.:GOS.330:G. 165 
А(Х)=5:5=0:С.480 
A(T)=0:F.X=1T0100:IF А )=0 4.510 
N.X:GOS.330:G.55 
А(Х)=5:5=0:С6.500 
Q=Q+1:Y=A(Q) 
IF Y=0 G.530 
RET. 


Sampie Run 


GO FISH 


YOURHAND---1.)0 2)M 30) 4)C 5.) 
6.)G 7.)А 

MYHAND---1.)X 2.)Х 3.)Х 4)X 5)X 
6.)Х 7.)Х 

CAN YOU MAKE ANY PAIRS? NO 

ГУЕ MATCHED APAIROFC 
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ГУЕ MATCHED A PAIR OFH 
WHAT DO YOU NEED? O 

GO FISH! 

YOUJUST DREW AD 
INEEDAK 


YOURHAND---1.JO 29M 3.) 4.)С 6)G 72A 8.)D 
MYHAND--1.)X 2.)Х 3.)Х 4)X 6.)X 

CAN YOU MAKE ANY PAIRS? NO 

I'VE MATCHED APAIROFK 

WHAT DO YOU NEED? M 

INEEDAB 

I MUST GO FISH 


YOUR HAND --- 1.)02.)M 3.)] 4.)C 5.)M 
6.)G 7.)A8.)D 
MY HAND --- 1.)X 4.)X 


CAN YOU MAKE ANY PAIRS? YES 
CARD??? 2 

ANY CARD #? 5 
YOU'VEMATCHEDAPAIROFM 
WHAT DO YOU NEED? J 
INEEDAB 

I MUST GO FISH 


YOURHAND-—1.)0 2.)] 3.) 4.)С 696 
7.)А 8.)D 


MY HAND —- 1.)X 4.)X 


Summary of Variables Used 


A-P CARD VALUES 
LOCATION IN DECK 
PAIR MATCHING 
PLAYER'S REQUEST/PAIR MATCHING 
OPPONENT'S HAND SEARCH/PAIR MATCHING 
MATCH ANY PAIRS? 
NOT USED 
CARD COUNT 
Z VARIOUS 


>x z < = Ə o = D 
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Quiz Whiz 


Quiz Whiz is a simple game in concept. The computer gives 
you a number (X) and four larger numbers. You have to determine 
which one is the square of X (X times X). There are ten rounds to a 
game. 

In the easy game X can be any whole number from 1 to 50. The 
medium game allows half numbers (such as 37.5), and the hard 
game allows any digit behind the decimal point (39.7, 42.3, 16.8, 
etc. . .). Of course you can change the over-all complexity of the 
game by altering the value of X in line 30. As written X = 50 times 
L. If you substituted "X —40*L", the maximum number is 40 (the L 
factor is divided back out in a later step; it is used to provide the 
fractional quantities in the medium and hard games. In the easy 
game. L — 1). 

If you can get a score of 10 without using a calculator or slide 
rule, you're really a whiz kid. See Fig. 1-13 for the flowchart. 


Standard BASIC 
10 PRINT”, “WHIZ QUIZ" 


20 LETS=0 

22 PRINT EASY, MEDIUM, OR HARD GAME”; 
24 INPUTL 

26 REM*THE САМЕ * 

28 ЕОКТ-17010 

30 LET X=50*L 

32 LET Y=INT(RND(O)*X)+1 

34 LET X=Y/L 

36 LET Y=X*X 

38 REM*XIS THE ROOT AND Y ISTHE CORRECT ANSWER" 
40 FORM=1TO333 

42 NEXTM 

44 PRINT“WHATIS”;X;“ SQUARED?” 

46 LETA=0 

48 LETB=0 

50 LET C=0 

52 LET D=0 

54 REM*PLANT CORRECT ANSWER * 

57 LET E=INT(RND(0)*4)+1 

60 IF E=1THEN LET A=Y 


RESET TURN 
COUNTER 


RUN 


SELECT 
ROOT 


PLACE CORRECT 
ANSWER 


GENERATE 
INCORRECT 
ANSWERS 


PLAYER'S 
ANSWER 


CORRECT 
? 


ADVANCE 
SCORE 


Fig. 1-13. Flowchartfor Whiz Quiz. 
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215 
220 
225 
230 
235 
240 
245 
250 
255 
260 


IF E=2 THEN LET B=Y 
IF E=3 THEN LET C=Y 

IF E=4 THEN LET D=Y 

REM * WRONG ANSWERS * 

IF A>0 THEN GOTO 95 

GOSUB 220 

LET A-H 

IF B>0 THEN GOTO 110 

GOSUB 220 

LET B=H 

IF C>0 THEN GOTO 125 

GOSUB 220 

LET C=H 

IF D>0 THEN GOTO 140 

GOSUB 220 

LET D=H 

REM*PLAYER'S CHOICE * 
PRINT" А ---”;A 

PRINT" B ---”;B 

PRINT" C ---";С 

PRINT" D ---”;ნ 

INPUT К 

FOR M= 1 TO 333 

NEXTM 

IF K=Y THEN GOTO 200 
PRINT"WRONG. THE CORRECT ANSWERIS”; Y 
NEXT T 

PRINT"THE WHIZ QUIZ IS OVER" 
PRINT"YOU GOT ";S;" RIGHT" 
END 


REM* CORRECT ANSWER* 
PRINT"RIGHT!" 


LET S=S+1 

GOTO 180 

REM* WRONG ANSWER SELECTION * 
LET F= INT(RND(0)*0.4*X)4-1 

LET G=INT(RND(0)*F)+1 + X + (F/2) 
IF G=X THEN GOTO 230 

LET H =G*G 

IF L=1 THEN GOTO 260 

LET G=INT(RND(0)*10)+1 

LET H=H+(G/L) 

RETURN 


TRS-80 BASIC 
10 P."","WHIZ QUIZ”: P. 


15 
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E=1:M=2:H=10:S=0 


IN."EASY, MEDIUM, OR HARD GAME”;L 
F.T=1TO10 
X=50*L: Y=RND(X) 
X=Y/L:Y=X*X 
F.M=1T0333:N.M 
P.“WHAT IS”; X;“ SQUARED?” 
A=0:B=0:C=0:D=0 
E=RND(4) 

IF E=1 THEN A=Y 
IF E=2 THEN B=Y 
IF E=3 THEN C=Y 
IF E=4 THEN D=Y 
IF А>0 6.95 
GOS.220 

А=Н 

IL B>0G. 110 
GOS.220 

В=Н 

IF C>0 С. 125 
GOS.220 

C=H 

IF D>0G. 140 

GOS. 220 

D=H 

Р.“А---”; А 
Р.“В---”;В 
Р.“С--”;С 
P.“D---”;D 

IN.K 
F.M=1TO33:N.M 
IF K=Y G.200 


P."WRONG. THE CORRECT ANSWERIS 5 Y 


N.T 

PL"THE WHIZ QUIZIS OVER." 
P."YOU GOT ”;S;“ RIGHT" 
END 

P."RIGHT!" 

S=S+1 

G.180 

F=INT(.4 *X) 
G=RND(F)+(X-F/2) 

IF G=X С. 225 

H=G“G 

IF L=1 C. 250 
H=H+(RND(10)/L) 

RET. 


Variahles Used 


POSSIBLE ANSWER 
POSSIBLE ANSWER 
POSSIBLE ANSWER 
POSSIBLE ANSWER 
EASY GAME/CORRECT ANSWERSELECTION 
FALSE ANSWER CALCULATIONS 
FALSE ANSWER CALCULATIONS 
FALSE ANSWER CALCULATIONS/HARD GAME 
PLAYER'S ANSWER 
GAMELEVEL 
MEDIUM GAME/TIMING 
SCORE 
TURN COUNTER 
ROOT SELECTION 
CORRECT ANSWER 


ооо = C >: ООО O р 


Sample Run (Excerpt) 


QUIZ WHIZ 
WHATIS17 SQUARED? 
А---256 
В--289 
С--324 
D—-196 
?А 
WRONG. THE CORRECT ANSWER IS 289 
WHAT IS 32 SQUARED? 
A---941 
В--900 
С--1225 
D -— 1024 
?D 
RIGHT! 
WHATIS 50 SQUARED? 
А --- 3249 
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Tic Tac Toe 


Here is a computerized version of that old favorite. The 


object, of course, is to get three in a row: across, down or diagon- 


ally. 


It's not easy to beat the computer, but anything's possible. See 


Fig. 1-14 for the flowchart. 


Standard BASIC 


10 
12 
14 


PRINT" LET'S PLAY TIC-TAC-TOE" 
FOR Х=1 TO 9 
LET A(X)=0 

TX 


16 NEX 


REM ** THE BOARD IS NOW CLEARED ** 
GOSUB 280 

PRINT"YOU TAKE THE ‘O’ ANDTLL TAKE THE “X” 
PRINT:PRINT 

LET N=INT (RND(0)*2)+1 

LET M=3 

GOTO 300 

IF N=2 THEN GOTO 290 

PRINT'TLL GO FIRST THIS TIME” 
GOSUB 280 | 

PRINT“TLL TAKE SPACE # "; 

GOSUB 280 

LET S=INT (RND(0)*9) 4-1 

LET A(S)=—1: LET M=1 

PRINT S 

GOSUB 280 

GOTO 300 

PRINT "WHICH SPACE WILL YOU PLAY"; 
INPUT S 

LET S=INT(S) 

LET S=ABS(S): LET М=2 

IF $29 THEN GOTO 85 

100 IF S<1 THEN СОТО 85 

IF A(S) «0 THEN СОТО 85 

LET A(S)=—2 

GOTO 300 

PRINT “TLL PAY SPACE # ”; 

LET 5-0: LET М=1 

REM ** BOARD CHECK FOR COMPUTER'S PLAY ** 
IF А(1)=0 THEN GOTO 147 

IF А(1)=А(2) THEN LET S=3 
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IF A(1)=A(3) THEN LET S=2 
IF A(1)=A(5) THEN LET S=9 
IF А(1)=А(9) THEN LET S=5 
IF (1)=A(4) THEN LET S=7 
IF A(1)=A(7) THEN LET S=4 
IF A(2)=0 THEN GOTO 157 
IF A(2)=A(3) THEN LET S=1 
IF A(2)=A(5) THEN LET S=8 
IF A(2)=A(8) THEN LET S=5 
IF A(3)=0 THEN GOTO 170 
IF A(3)=A(5) THEN LET S=7 
IF A(3)=A(7) THEN LET S=5 
IF A(3)=A(6) THEN LET S=9 
IF A(3)=A(9) THEN LET S=6 
IF A(4)=0 THEN GOTO 180 
IF A(4)=A(7) THEN LET S=1 
IF A(4)=A(5) THEN LET S=6 
IF A(4)=A(6) THEN LET S=5 
IF A(5)=0 THEN GOTO 192 
IF A(5)=A(6) THEN LET S=4 
LET A(5)=A(9) THEN LET S=1 
IF A(5)=A(8) THEN LET S=2 
IF A(5)=A(7) THEN LET S=3 
IF A(6)=0 THEN GOTO 197 
IF A(6)=A(9) THEN LET $=3 
IF А(7)=0 THEN GOTO 210 
IF A(7)=A(8) THEN LET $=9 
IF A(7)=A(9) THEN LET $=8 
IF А(8)=0 THEN GOTO 220 
IF A(8)=A(9) THEN LET S=7 
IF S>0 THEN GOTO 230 
LET S=INT (RND(0)*9)+1 

IF A(S)«0 THEN GOTO 225 
GOSUB 280 

PRINT S 

LET A(S)=-1 

GOTO 75 

REM ** PAUSE ** 

FOR X=1 TO 333 

NEXT X 

RETURN 

PRINT “YOU GO FIRST” 
GOTO 85 

REM ** DRAW GRID ** 
PRINT: PRINT: PRINT 

LET Z=1 


307 FOX X=1 TO 3 

310 PRINT"", 

312 FORY=1TO3 

315 LET V=A(Z) 

320 IF V<0 THEN GOTO 475 


325 PRINT Z^" ”; 
330 LET 2=2+1 


PLAYER'S TURN 
SELECT SPACE 


Fig. 1-14. Flowchartfor Tic Tac Toe. 
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МЕХТ У 
PRINT 

NEXT X 

PRINT:PRINT 

REM* WIN CHECK ** 

LET Y=0 

FOR 2-1 TO 9 

LET X=Z 

IF ACX)<0 THEN X=0 

LET Y=Y+X 

NEXT Z 

IF Y=0 THEN GOTO 490 

IF A(1)=0 THEN GOTO 405 
LET X=A(1) 

IF X=A(2) THEN GOSUB 500 
IF X=A(4) THEN GOSUB 510 
IF X=A(5) THEN GOSUB 520 
IF A(2)=0 THEN GOTO 420 
LET X=A(2) 

IF X=A(5) THEN GOSUB 530 
IF A(3)=0 THEN GOTO 440 
LET X=A(3) 

IF X=A(6) THEN GOSUB 520 
IF X=A(5) THEN GOSUB 510 
IF A(4)=0 THEN GOTO 455 
LET X=A(4) 

IF X=A (5) THEN GOSUB 540 
IF A(7)=0 THEN GOTO 470 
LET X=A(7) 

IF X=A(8) THEN GOSUB 520 
IF M=1 THEN GOTO 85 

IF M=2 THEN GOTO 120 

IF M=3 THEN GOTO 40 

IF V=—1 THEN PRINT “X”; 
IF V——2 THEN PRINT“ ”; 
GOTO 330 

PRINT"TIE GAME — LET'S TRY AGAIN" 
GOTO 12 

IF X=A(3) THEN GOTO 550 
RETURN 

IF X=A(7) THEN GOTO 550 
RETURN 

IF X=A(9) THEN GOTO 550 
RETURN 

IF X=A(8) THEN GOTO 550 
RETURN 


540 
545 
550 
555 
560 
565 


IF X=A(6) THEN GOTO 550 


RETURN 


IF Х=—1 THEN PRINT "T ”; 
IF X=—2 THEN PRINT “YOU”; 


PRINT "WIN!" 
END 


TRS-80 BASIC 


P."LET'S PLAY TIC-TAC-TOE" 


F.X=1 TO 9:A(X)20:N.X. 
GOS.280 


P."YOU TAKE THE ‘0’ AND ГІЛ, TAKE THE ‘X’ "Р.Р. 


N=RND(2):M=3 
G.300 


IF N=2 G. 290 


P."TLL GO FIRST THIS TIME" 


GOS.280 


P."TLL TAKE SPACE ЖР; 


GOS.280 
S-RND(9): А(5)=—1 
Р.5.:М=1 

GOS. 280 

G.300 


IN. "WHICH SPACE WILL YOU PLAY”;S 
S=INT(S):S=ABS(S):M=2 


IF S>9 G.85 

IF S«1 G. 85 

IF A(S)<0 G.85 
A(S)=-2 

G .300 

P."TLL PLAY SPACE #”; 
S=0:M=1 

IF A(1)=0 С. 147 

IF А(1)=А(2) THEN S=3 
IF А(1)=А(3) THEN S=2 
IF A()=A() THEN S=9 
IF A(1)=A(9) THEN S=5 
IF А(1)=А(4) THEN S=7 
IF А(1)-А(7) THEN 5-4 
IF А(2)=0 С. 157 

IF A(2)=A(3) THEN S=1 
IF A(2)=A(5) THEN S=8 
IF A(2)=A(8) THEN S=5 
IF A(3)=0 G. 170 

IF A(3)=A(5) THEN S=7 
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IF A(3)=A(7) THEN $=5 
IF A(3)=A(6) THEN S=9 
IF A(3)=A(9) THEN $=6 
IF A(4)=0 С. 180 

IF A(4)=A(7) THEN S=1 
IF A(4)=A(5) THEN S=6 
IF А(4)=А(6) THEN S=5 
IF А(5)-0 С. 192 

IF A(5)=A(6) THEN S=4 
IF А(5)=А(9) THEN $=1 
IF A(5)=A(8) THEN S=2 
IF A(5)-A(7) THEN S=3 
IF A(6)=0 С. 197 

IF A(6)=A(9) THEN $=3 
IF А(7)-0 G. 210 

IF A(7)=A(8) THEN S=9 
IF А(7)=А(9) THEN S=8 
IF А(8)=0 С. 220 

IF А(8)=А(9) THEN S=7 
IF 5>0 6. 230 

S-RND (9) 

IF A(S)«0 G.225 

GOS. 280 


Е.Х. =1T0333: N.X. 
RET. 

P.“YOU GO FIRST” 
G. 85 

Epp] 
F.X-1103:P." ”, 
F.Y=1TO3 

V=A(Z) 

IF V«0 С. 475 


IF A(X)«0 THEN X=0 
Y=Y+X 

N.Z 

IF Y=0 G. 490 


IF A()=0 С. 405 
Х=А(1) 

IF X=A(2) GOS. 500 
IF X=A(4) GOS. 510 
IF X=A(5) GOS. 520 
IF A(2) =0 G. 420 
X=A(2) 

IF X=A(5) GOS. 530 
IF A(3)=0 С. 440 
X=A(3) 

IF X=A(6) GOS. 520 
IF X=A(5) GOS. 510 
IF A(4)=0 G. 455 
X=A(4) 

IF X=A(5) GOS. 540 
IF A(7)=0 G. 470 
X=A(7) 

IF X=A(8) GOS. 520 
IF M=1 G. 85 

IF M=2 G. 120 

IF М=3 С. 40 

IF V=—1 P.“ X”; 

IF V=—2 P."O*; 

G. 330 

P."TIE GAME — LET'S TRY AGAIN" 
G. 15 

IF X=A(3) С. 550 
RET. 

IF X=A(7) С. 550 
RET. 

IF Х=А(9) С. 550 
RET. 

IF X=A(8) С. 550 
RET. 

IF X=A(6) С. 550 
RET. 

IF X-- 1 P.“T"; 

IF X=—2 P."YOU"; 
P."WIN!' 

END 


Summary Of Variables Used 


N 


TURN SELECT 


S SPACE PLAYED 
У SPACE VALUES 
X TIMING/VARIOUS 
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Y TIE CHECK / BOARD DRAWING 
Z SPACE NUMBER 


Sample Run 

LET'S PLAY TIC-TAC-TOE 

YOU TAKE THE “0” AND I LL TAKE THE 'X' 
12 3 


YOU GO FIRST 
WHICH SPACE WILL TOU PLAY? 5 


7 8 9 
l'LL PLAY SPACE #3 


касо Oo ре 


2 
0 
8 
LL 
2 


1 

4 

7 
WHICH SPACE WI OU PLAY? 7 

1 

4 

0 


CC oO ра 


0 
8 
ILL PLAY SPACE #6 


РЗ рс 


1-2 
4 0 
0 8 
WILL 


о «© 


WHAT SPACE WILL YOU PLAY? 9 


1 
4 
0 


Ф pp 


2 
0 
8 
PLL PLAY SPACE #8 


О c рер 


1 2 

4 0 

0 X 
WHAT SPACE WILL YOU PLAY? 1 

0 2 

4 0 

0 X 


ссу 


YOU WIN!! 
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Chapter 2 
Two-Player Games 


With the three games in this chapter you can enjoy your computer 
with a friend. You play against each other and the computer keeps 
tabs on everything. 

To And Fro and Passing Points are designed on a modified 
board game concept and Money Mad is a light-hearted approach to 
the stock market. 
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То And Fro 


This is a fairly simple two-player game. The players move 
along an imaginary board of 100 spaces (the computer does not 
draw the board, but it continually prints out what spaces the players 
are on). On each move a player can move from 1 to 6 spaces: the 
object is to reach the 100th space. But here’s the catch; each time 
you move to a space, the computer tells you its value from —6 to 
+6. If the value is zero, nothing happens. If the value is positive 
you are moved ahead that many spaces, and if it is negative you're 
moved back. The value of the second space you land on is ignored. 

The space values are identical for both players, and remain 
constant throughout the game. See Fig. 2-1 for the flowchart. 


Standard BASIC 
5 FORX=1T025:PRINT: NEXT X 
10 PRINT"","TOANDFRO":PRINT 
12 PRINT"PLAYER #1”; 
15 INPUTAS$ 
17 PRINT"PLAYER #2”; 
20 МРОТ B$ 
22 PRINT 
25 PRINT“THE OBJECT IS TO MOVE FROM POSITION 1 TO" 
30 PRINT“POSITION 100. IF YOU GO PAST 100 YOU WILL” 
35 PRINT"LOOP BACK TO THE START. EACH MOVE MAY BE" 
40 PRINT"FROM 1 TO6 SPACES. SOME SPACES WILL SEND" 
45 PRINT"YOU FORWARD, OTHERS BACKWARD. THE SPACE" 
47 PRINT"VALUEIS THE SAME FOR BOTH PLAYERS. THE" 
50 PRINT'“FIRST TO LAND ON POSITION 100 WINS." 
52 FOR X=1 TO 100 
54 LETY-INT(RND(0)*13)-6 
56 ГЕТА(Х)=У 
58 NEXT X 
60 FORX-1TO20 
62 LETY-INT(RND(0)*100) 
64 LET A(Y)=0:NEXT X 
66 LETA()=O 
68 LETA(100)=O 
70 LETA=I:LET B=1 
75 LET T=INT(RND(O)“2)+1 
77 IF T=2THEN GOTO 120 
80 GOSUB 150 
85 СОЅОВ 170 
90 LETA=A+M 


95 LETC-A 
100 GOSUB 150 
105 GOSUB 200 
110 LETA=A+M 
115 GOSUB 150 
120 GOSUB 160 
125 GOSUB170 
127 ГЕТВ=В+М 
130 LETC-B 


135 GOSUB 160 
140 GOSUB200 


PRINTINSTRUCTIONS 


SETUP BOARD 


TURNSELECT 


Я ҮЕ 


REPORT » 


YES 


ADJUST 
SPACE VA 


RESET TURN 


Fig. 2-1. Flowchart for To and Fro. 
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142 LETB=B+M 

145 GOSUB 160 

147 GOTO85 

150 PRINTA$;"ISATSPACE #”; А 
155 СОТО 255 

160 PRINT B§;“ IS AT SPACE #”;B 
165 GOTO255 

170 PRINT“YOUR MOVE”; 

172 INPUT M 

175 LET M=INTM) 

177 IFM«THEN GOTO 170 

180 IFM>6THEN GOTO 170 

185 RETURN 

200 FORX=1TO470:NEXT X 

205 LETM=A(C) 

210 IF M=0 THEN GOTO 235 

215 IFM«0 THEN GOTO 240 

220 PRINT"MOVE AHEAD ”;M;“ SPACES" 
225 FORX=1T0470:NEXT X 

227 PRINT 

230 RETURN 

235 PRINT“BLANK SPACE” 

237 СОТО 225 

240 ГЕТМ=-М 

245 PRINT“MOVE BACK”;N;“ SPACES” 
250 СОТО 225 

255 ІЕА>100 THEN LET A—A- 100 
260 IF A=100 THEN GOTO 285 

265 IFA«ITHENLET А=1 

267 IF B>100 THEN LET B-B- 100 
270 IF B=100 THEN GOTO 290 

275 IF B<1 THEN LET B=1 

280 RETURN 

285 PRINT A$; 

287 СОТО 295 

290 PRINT B$; 

295 PRINT" WINS!" 

300 END 


TRS-80 BASIC 


10 CLS:P.:P."","TO AND FRO”:P. 
15 IN."PLAYER #1”; А$ 
20 IN."PLAYER #2”; B$ 


25 P.:P."THE OBJECT IS TO MOVE FROM POSITION 1 TO 
POSITION 100" 
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P.“IF YOU GO PAST 100 YOU WILL LOOP BACK TO THE 


START.” 


P.“EACH MOVE MAY BE FROM 1 TO 6 SPACES” 
P."SOME SPACES WILL SEND YOU FORWARD, OTHERS" 


P."BACKWARD. THE SPACE VALUE IS THE SAME FOR 


BOTH” 


P.“PLAYERS. THE FIRST TO LAND ON POSITION 100 WINS.” 


F.X=1T0100: Y=RND(13)- 7:AQO=Y:N. X:A(1)=0 
F.X=1TO20: Y=RND(100): А(Ү)--0: М.Х: A(100)=0 


А=1:В=1 

T=RND(2) 

IF T=2 G.120 

GOS. 150 

GOS. 170 

A=A+M 

C=A 

GOS. 150 

GOS. 200 

A=A+M 

GOS. 150 

GOS. 160 

GOS.170 
B=B+M:C=B:GOS. 160 
GOS. 200 

B=B+M:GOS. 160:G.85 
P.A$;“IS AT SPACE #”; А 
G.255 

P.B$;“ IS AT SPACE #”;B 
G.255 

IN. “YOUR MOVE”; M 
M=INT(M):IF M<1G.170 
IF M>6G.170 

RET. 

F.X=1TO470:N.X 
M=A(C) 

IF M=0G.235 
IFM«0G.240 

P.“MOVE AHEAD ”;M;“ SPACES" 
F.X=1TO470:N.X:P. 


RET. 

P.“BLANK SPACE”:G.225 
N=—M 

P.“MOVE BACK”;N;“ SPACES" 
G.225 


IF A-2100 THEN A-A- 100 
IF A=100 G.280 
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262 
265 
267 
270 
275 
280 
285 
290 
295 


If A<1 THEN А=1 

IF B>100 THEN B=B- 100 
IF B=100 G-285 

IF B<1 THEN B=1 

RET. 

P.A$;:G. 290 

Р.В$; 


Summary Of Variables Used 


А$ 
В$ 


н 4 912 О ш р 


PLAYER #1 

РГАУЕК #2 

PLAYER #15 SPACE 
PLAYER #2’S SPACE 
INTERMEDIATE SPACE 
MOVE 

BACKWARD MOVE 
TURN COUNTER 
TIMING 


VALUE SETTING 


Sample Run (Excerpt) 
JOE IS AT SPACE #6 
YOUR MOVE? 5 

JOE IS AT SPACE #11 


BLANK SPACE 
JOE IS AT SPACE #11 


BILLIS AT SPACE #8 
YOURMOVE? 4 

BILLIS AT SPACE #12 
MOVE AHEAD 6 SPACES 
BILLIS AT SPACE #18 
JOEISATSPACE #11 
YOUR MOVE? 6 
JOEISATSPACE #17 
MOVE BACK 2 SPACES 
JOE IS AT SPACE #15 
BILLIS AT SPACE #18 
YOUR MOVE? 4 

BILLIS AT SPACE #22 
MOVE AHEAD 2 SPACES 
BILLIS AT SPACE #24 
JOE IS AT SPACE #15- 
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Passing Points 


In this game the players are on a circular “board” of 25 spaces. 
Each move can be from 1 to 5 spaces. After passing space #25, the 
players loop back around to space #1 again. Each space has a point 
value from —10 to +10. Before the computer reveals the point 
value of the space, you have the option of either keeping the points 
yourself or passing them over to your opponent. Obviously, the 
way to win this game is to remember as many space values from 
previous laps that you can (taking notes is cheating). Whoever 
reaches 100 points first, wins. Conversely, if a player reaches 
— 100 points, he or she loses. 

The strategy in this game is in deciding whether to go for 
negative points to hurt your opponent, or positive points to help 
yourself. See Fig. 2-2 for the flowchart. 


Standard BASIC 


5 PRINT:PRINT 
7 DIM A(25) 
10 PRINT“ ”,“PASSING POINTS” 
15 PRINT“ENTER 1 FORINSTRUCTIONS ORO TO PLAY" 
17 INPUTX 
20 IF X>0 THEN GOTO 350 
25 REM*SET SPACE VALUES* 
30 FORX=ITO25 
35 LETY-INT(RND(0)*21)- 10 
40 LET А(Х)=У 
45 NEXTX 
50 LETA-LELETB-1 
55 LETC=0:LETD=0 
60 PRINT"PLAYER #1”; 
62 INPUT A$ 
65 PRINT“PLAYER #2”; 
67 INPUT B$ 
70 REM* PLAYER #1’S TURN* 
75 GOSUB 200 
80 PRINT A$; 
85 GOSUB 250 
90 LETA=A+M 
95 IFA>25THEN LET А=А-25 
100 PRINT"SPACE #”;A 
105 LETJ=A(A) 
110 GOSUB300 
115 IFG=1THENLETD=D+4J 
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120 
125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
200 
202 
205 
210 
215 
217 
220 
225 
230 
235 
240 
250 
255 
260 
265 
270 
275 
280 
285 
290 
300 
305 
310 
315 
320 
325 
330 
335 
340 
345 
350 
355 
360 
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IF G=2 THEN LET C=C+J 
REM* PLAYER #2’S TURN" 

GOSUB 200 

PRINT B$; 

GOSUB 250 

LET B=B+M 

IF B>25 THEN LET B—B- 25 

PRINT“SPACE #”;B 

LETJ-A(B) 

GOSUB 300 

IF G=1 THEN LETC=C+J 

IF G=2 THEN LET D=D+J 

GOTO 70 

FOR X=1 T030 

PRINT:NEXTX 

PRINT“PLAYER”, A$,B$ 

PRINT“SPACE”,A,B 

PRINT“SCORE”,C,D 

PRINT 

IF C«—99 THEN GOTO 405 

IF D«—99 THEN GOTO415 

IF C99 THEN GOTO 415 

IF D»99 THEN GOTO 405 

RETURN 

PRINT" YOUR MOVE"; 

INPUTM 

REM* VALIDITY CHECK * 

LET M=INT(M) 

IF M<1 THEN GOTO 250 

IF M>5 THEN GOTO 250 

FOR X=1T0333 

NEXT X 

RETURN 

REM* THE CHOICE * 

PRINT "ENTER 1 TO PASS THE POINTS." 
PRINT“ENTER 2 TO KEEP THE POINTS." 
INPUTG 

IF G=1 THEN 335 

IF G=2 THEN GOTO 335 

СОТО 310 

FOR X=1 ТО 400:МЕХТХ 

PRINT"VALUE =”;J 

RETURN 

PRINT" ","INSTRUCTIONS" 

PRINT“YOU ARE ON A CIRCULAR PATH OF 25 SPACES" 
PRINT“EACH SPACE HAS A VALUE FROM —10 TO +10.” 


SETSPACE VALUES 
& VARIABLES 


ADVANCE AS 


INPUT 
PASS ORKEEP? 


ADJUST AS 
SCORE 


Fig. 2-2. Flowchartfor 
Passing Points. 


ADJUST BS SCORE 


BS TURN 


REPORT 


INPUT 
PASS OR KEEP? 


ADJUST BS 
SCORE 


ADJUST 
AS SCORE 


GOTOPOINT 
A 
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365 PRINT“YOU CAN CHOOSE TO KEEP THE POINTS OR PASS" 
370 PRINT"THEM TO YOUR OPPONENT. THE GAME IS OVER" 
375 PRINT"WHEN EITHER PLAYER REACHES 100 OR – 100." 
380 PRINT"THE OBJECT IS TO REMEMBER AS MANY SPACE" 
385 PRINT“VALUES AS POSSIBLE SO YOU CAN KNOW WHAT" 
390 PRINT“TO CHOOSE. IT'S CHEATING TO KEEP NOTES" 
395 PRINT“PRESS ‘ENTER’ TO PLAY." 
400 INPUT A$ 
402 GOTO25 
405 PRINT BS; 
410 GOTO420 
415 PRINT A$; 
420 PRINT" WINS!" 
425 END 
TRS-80 BASIC 
10 Р.:Р.:Р.“” “PASSING POINTS":P. 
15 IN."ENTER1FORINSTRUCTIONS OROTO PLAY X 
20 IFX>0G. 350 
25 F.X-1TO25:Y-RND(21)- 11 
30 A(X)=Y:N.X 
35 A=1:B=1:C=0:D=0 
40 IN."PLAYER #1”; А$ 
45 IN."PLAYER #2”;В$ 
70 GOS.200 
75 Р.А$; 
80 GOS.250 
85 A=A+M 
90 IFA225 THEN A=A- 25 
95 P."SPACE #”; А 
100 ]=А(А) 
105 GOS.300 
110 IFG=1 THEN D=D+J 
115 IFG=2THEN C=C4J 
120 GOS.200 
125 Р.В$ 
130 GOS. 250 
135 B=B+M 
140 IF B>25 THEN B-B- 25 
145 P.“SPACE #”;В 
150 J=A(B) 
155 GOS.300 
160 IFG=1 THEN C=C+] 
165 IFG-2THEND-D-4J 
170 G.70 
200 CLS:P.“PLAYER”,A$,B$ 


205 
210 
215 
220 
225 
230 
235 
250 
255 
260 
265 
270 
275 
300 
305 
310 
315 
320 
325 
330 
335 
350 
355 
360 
365 
370 
375 
380 
385 
390 
395 
400 
405 
410 
415 
420 
425 


P.“SPACE” A,B 

P.“SCORE”,C,D:P. 

IF C«— 99 G.405 

IF D<—99G.415 

IF C>99G.415 

IF D> 99G. 405 

RET. 

IN.“ YOUR MOVE”;M 

M=INT(M) 

IFM«1G.250 

IF M>5G. 250 

F.X=1TO333:N.X. 

RET. 

P."ENTER 1 TO PASS THE POINTS." 

IN. “ENTER 2 TO KEEP THE POINTS."; G 

IF G=1 G.325 

IF G=2 G.325 

G.305 

F.X=1TO400:N.X 

P.“VALUE =”; 

RET. 

P.“” "INSTRUCTIONS" 

P."YOU AREONA CIRCULAR PATH OF 25 SPACES." 
P."EACH SPACE HAS AVALUE FROM - 10 TO 4-10." 
P."YOU CAN CHOOSE TO KEEP THE POINTS OR PASS" 
P."THEM TO YOUR OPPONENT. THE GAMEIS OVER" 
P."WHEN EITHER PLAYER REACHES 100 OR — 100" 
P."POINTS. THE OBJECTIS TO REMEMBER AS MANY" 
P."SPACE VALUES AS POSSIBLE SO YOU CAN KNOW" 
P."WHAT TO CHOOSE. IT'S CHEATING TO KEEP" 
P."NOTES. PRESS'ENTER' TO PLAY." 

IN.A$:G.25 

P.B$; 

G.420 

P.A$ 

P.“WINS!” 

END 


Summary of Variables Used 


A$ 
B$ 


ოზ O Z > 


РГАҮЕК #1 

РГАҮЕК #2 

PLAYER #1’S SPACE 
PLAYER #2’S SPACE 
PLAYER #1'SSCORE 
PLAYER #25 SCORE 
PASSOPTION 
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J SPACE VALUE 


К KEEP (=2) 

M MOVE 

P  PASS(=1) 

X TIMING 

Y | VALUESETTING 

Sample Run (Excerpt) 
PASSING POINTS 

ENTER 1 FOR INSTRUCTIONS OR 0 TO PLAY ?0 

PLAYER £1? JOE 

PLAYER #2? BILL 

PLAYER JOE BILL 

SPACE 1 1 

SCORE 0 0 

JOE YOUR MOVE? 5 

SPACE #6 

PASSIT OR KEEPIT? KEEP 

VALUE =6 

PLAYER JOE BILL 

SPACE 6 1 

SCORE 6 0 

BILL YOUR MOVE? 4 

SPACE #5 

PASSIT ORKEEPIT? KEEP 

VALUE =- 10 

PLAYER JOE BILL 

SPACE 6 5 

SCORE 6 -10 

JOE YOUR МОУЕ? 5 

SPACE #11 

PASS IT OR KEEP IT? PASS 

VALUE =4 

PLAYER JOE BILL 

SPACE 11 5 

SCORE 6 -6 
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Money Mad 


The object in Money Mad is to make as much money off your 
"investments" as possible. Each player starts out with $10,000. 
The first player to double that amount wins. Conversely, the first 
player to squander down to a net value of $1000, or cash holdings of 
less than $500, loses. 

On each turn you can buy any of six offered stocks. By 
watching the way their values fluctuate on each report, you can try 
to determine which stocks are the most valuable. Remember 
though, the stocks which gain the greatest amounts can also lose 
the greatest amounts. Sometimes a stock's value may go negative. 
A player could cheat by buying up a few hundred shares of a 
negative stock to increase cash holdings. If you want to prevent this 
you can add the following step: 


242 IF Q«0 THEN GOTO 255 
The TRS-80 version would read— 
242 IF Q<0G.250 


Rather than buying one of the established stocks, the players 
can choose to invest in an “independent venture”. This is a 
one-shot deal that affects only the player's cash, not his stockhold- 
ings. The player can invest as much as he wants (provided, of 
course, he has the cash to pay for it). He can gain up to 100% of his 
investment, or he can lose up to 100%. For example, let's assume 
the player has $10,000, and invests $1000. If his investment gains 
100% he'll end up with $11,000— if it loses 100% he'll only have 
$8000. Usually, of course, it will be somewhere between the 
extremes, but the loss or gain is entirely random. 

All in all, this game is designed to be fairly unpredictable, but 
not pure chance. Strategy can be used to your advantage. At any 
rate, the result is a game that's almost as screwy as the "real" 
world of big finance. 


Standard BASIC 


5 PRINT:PRINT:PRINT 
7 PRINT"","MONEY MAD" 
10 PRINT 
12 LETA(70)-0 
14 PRINT"TYCOON #1”; 
16 INPUTAS 
18 PRINT"TYCOON #2”; 
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INPUT B$ 

LET X=10000: LET U=0 

LET Y-10000: LET V=0 

FORZ-1TO20 

LET A(Z)=0:NEXT 7 

LET A-INT(RND(0)*500)4-1 

LET B=INT(RND(0)*500)+1 

LET C=INT(RND(0)“500)+1 

LET D-INT(RND(0)*500)4-1 

LET E-INT(RND(0)*500)--1 

LET F=INT(RND(0)*500)+1 

PRINT"YOU EACH START OUT WITH $10,000" 
PRINT"THE FOLLOWING STOCKS ARE AVAILABLE" 
GOSUB 370 

LET G-INT(RND(0)*100)/100 

LET H=INT(RND(0)*100)/100 

LET I=INT(RND(0)*100)/100 

LET J=INT(RND(0)*100)/100 

LET K=INT(RND(0)*100)/100 

LET L=INT(RND(0)*100)/100 

FOR Z=1 to 666:NEXT Z 

PRINT“NEXT REPORT” 

GOSUB 300 

PRINT“TYCOON”, “CASH, “STOCKHOLDINGS” 
PRINTAS,X,U 

PRINT B$, Y, V 

GOSUB 260 

PRINT A$;“WHAT WILL YOU INVEST IN?" 
LET A(23)=1 

GOSUB 195 

IF T>X GOTO 410 

LET R=A(M) 

LET X=X-T 

LET R=R+S 

LET A(M)=R 

PRINT B$;“ WHAT WILL YOU INVEST IN?” 
LET A(23)=2 

GOSUB 195 

IF T>Y THEN GOTO 410 

LET M=M+10 

LETR=A(M): LET Y-Y- T 

LET R=R+S 

LET A(M)=R 

GOTO60 

PRINT“AMOUNT INVESTED” 

INPUT IL 


ТЕТ$=0 
LET M=0 

LET N-INT(RND(0)*200)—99 
FOR Z=1T0555:NEXT Z 

IF A(23)=2 THEN GOTO 175 
IF T>X THEN GOTO 410 
PRINT“PAYOFF IS”; N;“%” 
LET X=X-T 

LET N=N/100:LET T=T+(T*N) 
LET X=X+T 

LET T=0 

RETURN 

IF T>Y THEN GOTO 410 
PRINT“PAYOFF IS”; N;”%” 
LETY-Y-T 

LETN=N/100 

LET T=T-+(T*N) 

LET Y=Y+T 

LET T=0 

RETURN 

PRINT“(ENTER 1-7) ”; 
INPUTM 

LET M-INT(M) 

IF M<1 THEN GOTO 195 

IF M>7 THEN GOTO 195 

IF M=1 THEN LET Q=A 

IF M=2 THEN LET Q=B 

IF M=3 THEN LET Q=C 

IF M=4 THEN LET Q=D 

IF M=5 THEN LET Q=E 

IF M=6 THEN LET Q=F 
REM* M=7 IS FOR INDEPENDENT VENTURES" 
IF M=7 THEN GOTO 140 
PRINT“ # OF SHARES”; 
INPUTS 

LET T-S*Q 

PRINT"TOTAL COST =$”;Т 
RETURN 

LET M=X+U:LETN=Y+V 
IF X«500 THEN GOTO 505 


IF Y«500 THEN GOTO 505 
IF M<1000 THEN GOTO 290 


IF N<1000 THEN GOTO 420 
IF M>20000THEN GOTO 445 


IF N>20000 THEN GOTO 430 
RETURN 
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PRINT A$;"ISBANKRUPT" 

END 

LET S=1:LET R=INT(RND(0)*5)+1 

IF R>3 THEN LET S=—1 

LET A=A+(A*S*(G+R/170)) 

LET S=1:LET R=INT(RND(0)”5)+1 

IF R>3 THEN LET S=—1 

LET B=B+(B*S*(H+R/174)) 

LET S=1:LET R=INT(RND(0)”5)+1 

IF R>3 THEN LET S=- 1 

LET C=C+(C*S*(I+R/170)) 

LET S=1:LET R=INT(RND(0)”5)+1 

IF R>3 THEN LET S=-- 1 

LET D=D+(D“S“C+R/171)) 

LET S=1:LET R=INT(RND(0)”5)+1 

IF R>3 THEN LET S=- 1 

LET E=E+(E*S*(K+R/171)) 

LET S=1:LET R=INT(RND(0)*5)+1 

IF R>3 THEN LET $=-1 

LET F=F+(F*S*(L+R/171)) 

LET U=(A(1)*A)+(A(2)*B)+(A(3)*C)+(A(4)*D) 
LET U=U+(A(5)*E)+(A(6)*F) 

LET V=(A(11)*A)+(A(12)*B)+(A(13)*C)+(A(14)*D) 
LET V=V+(A(15)*E)+(A(16)*F) 
PRINT“#1ALLWEED ACRES", “$”; А 

PRINT“#2 BURNT BAKERIES","$' B 
PRINT“#3 CRUMBLED COMMUNICATIONS”, “$”; С 
PRINT“#4 DENTED DESKS, INC.","$"D 
PRINT‘#5 ELONGATED ENTERPRISES”, “$”; Е 
PRINT“#6 FIZZLED FINANCE” ,“$”;F 
PRINT“ #7 INDEPENDENT VENTURES”, 4?” 
RETURN 

PRINT“YOU HAVE OVER-INVESTED! YOU CAN’T AFFORD” 
PRINT"IT! YOU LOSE” 

END 

РКІЧТВ$;“ IS BANKRUPT” 

END 

PRINT B$“ HAS DOUBLED HIS FORTUNE!” 
PRINT“ A FINANCIAL WIZARD!” 

END 

IF N>20000 THEN GOTO 460 

PRINT A$;" HAS DOUBLED HIS FORTUNE!” 
GOTO 435 

PRINT“YOU HAVE BOTH DOUBLED YOUR FORTUNES!” 
IF N>M THEN GOTO 485 

IF M>N THEN GOTO 495 


475 PRINT “IN AN EXACT TIE!?!” 

480 END 

485 PRINT“BUT”;B$;“IS RICHER THAN”; A$ 
490 END 

495 РАМТ“ВОТ”; А$; “15 RICHER THAN ”;B$ 
500 END 

505 PRINT“TYCOON”, “CASH”, “HOLDINGS”, “TOTAL ASSETS" 
510 PRINT A$,X,U,M 

515 PRINT B$,Y, V,N 

520 IFMzNTHENPRINT"TIE—NO ONE"; 
525 IFM>N THEN PRINT A$; 

530 IFN>M THEN PRINT В$; 

535 PRINT“ WINS!” 

540 END 


ras BASIC 
CLS:P.:P.“”, “MONEY MAD":P.:X—10009:Y —10000 


T IN."TYCOON #1”; A$:IN.“TYCOON #2”В$:А(70)=0 
20 F.Z=1TO20:A(Z)=0:N.Z:A=RND(500):B=RND(500): 
С--КМГ(500) 


25 D-RND(509)YE-RND(500):FZRND(500): GZRND(190)/100 
36 P."YOUEACHSTART OUT WITH $10,000": H=RND(199)/106 
35 P."THE FOLLOWING STOCKS ARE AVAILABLE": GOS.370 
40 I-RND(90)/199:] -RND(190/190: KZRND(190/199: 
L-RND(99)/100 
60 F.Z=1T0666:N.Z:P.“NEXT REPORT":GOS.300 
65 P."TYCOON","CASH","STOCKHOLDINGS" 
78 P.A$,X,U:P.B$, Y, V:GOS. 260: А(23)-1 
75 P.A$;“ WHAT WILL YOU INVEST IN?" :GOS.195 
80 IFT>XG.41¢ 
85 R=A(M):X=X—T:R=R+S:A(M)=R:A(23)=2 
90 Р.В$;“ WHAT WILL YOU INVEST IN?”:GOS.195 
95 ІЕТ>ҮС.410 
140 М=М+19:В=А(М):У=У-Т:В=В+5:А(М)=В:С.60 
144 IN."AMOUNT INVESTED"; T: M22:N-RND(209)—- 00:S=Q 
145 F.Z=1T0555:N.Z: IFA(23)=2 6.175 
150 ІЕТ>Х6.410 
155 P."PAYOFFIS SN; “2”: X-X- T:NzN/198:T- T--(T*N) 
160 Х-Х-Т:Т-б: КЕТ. 
175 IFT-YG.418 
180 P.“PAYOFFIS”; > "05": Y¥=Y—T:N=N/196:T=T+(T*N) 
185 Y=Y+T:T=@:RE 
195 ІМ.“(ЕМТЕК1- n ”"M:M=INT(M) 
200 IFM«1GOTO 195 
205 IFM»7GOTO 195 
210 IFM=ITHENQ=A 
215 IFM=2THENQ=B 
220 IFM-3THENQ-C 
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225 
230 
235 
240 
245 
250 


270 
275 
280 


IFM=4THENQ=D 

IFM=5THENQ=E 

IFM=6THENQ=F 

IFM=7G. 149 

IN.“# OF SHARES”;S:T=S*Q:P.“TOTAL COST = $”: T 

RET. 

M=X+U:N=Y+V:IF Х< 596 G.505 

IF Y>500 С.505 

IF M« 190g. G.299 

IF N« 1000 С. 290 

IF M>20000 G.445 

IF N>20000 G.430 

RET. 

P. A$; 15 BANKRUPT”: END 

S=1:R=RND(5); IF R>3 THEN $=-1 
A=A+(A"S“(G+R/178)):S=1:R=RND(G): IF R>3 THEN S=— 1 
B=B+(B*S*(H+R/17@)):S=1:R=RND(5): IF R>3 THEN S=—1 
C=C+(C*S*(I+R/178)):S=1:R=RND(5):IFR>3 THEN $=-1 
D=D+(D*S*J+R/179)):S=1:R=RND(5): Е R>3 THEN $=-1 
E=E+(E*S*(K+R/179):S=1:R=RND(5):IFR>3 THEN $=-1 
F=F+(F*S*(L+R/1.7)) 

U=(A(1)*A)+(A(2)*B)+ (A(3)*C)+(A(4)*D)+(A(5)*E) +(A(6)*F) 
V=(A(11)*A)+(A(12)*B) +(A(13)*C) +(A(14)*D)+(A(15)*E) + 
(A(16)*F) 

Р.“#1 ALLWEED ACRES” ,“$”;A:P.“#2 BURNT BAKE- 
RIES”, “$”; В 

P.“#3 CRUMBLED COMMUNICATIONS”, “$”; С:Р.“#4 DEN- 
TED DESKS,INC.", 

P."$ ;D:P."5ELONGATED ENTERPRISES” ,“$”"; E 

P."*6 FIZZLED FINANCE”,“$";F:P.“#7 INDEPENDENT 
VENTURES","?" 

RET. 

P.“YOU HAVE OVER-INVESTED! YOU CAN'T AFFORDIT" 
P.“YOU LOSE!”: END 

Р.В$;“ 15 BANKRUPT”: END 

P.B$;“HAS DOUBLED HIS FORTUNE!” 

P.“A FINANCIAL WIZARD!”: END 

IF N» 20880 G. 460 

P.A$;“ HAS DOUBLED HIS FORTUNE!”:G.435 

P.“YOU HAVE BOTH DOUBLED YOUR FORTUNES!” IF ММ 
G.485 

IF M>NG. 495 

P.“IN AN EXACT TIE!”: END 

P.“BUT ”;B$;" IS RICHER THAN 5 A$: END 

P.“BUT ”; АФ IS RICHER THAN ”:B$: END 

P.“TYCOON” “CASH”, “STOCKHOLDINGS”, “TOTAL ASSETS" 


510 Р.А$,Х,О,М:Р.В$, Y, V KIF M=N P."TIE — NO ONE”; 
515 IF M>NP.A$; 

520 ІЕМ<МР.В$; 

525 Р,“ WINS!”: END 


Money Mad 


A$ TYCOON #1 

В$ TYCOON #2 

А ALLWEED ACRES * STOCK VALUE 

BURNT BAKERIES * STOCK VALUE 

CRUMBLED COMMUNICATIONS * STOCK VALUE 
DENTED DESKS, INC * STOCK VALUE 

ELONGATED ENTERPRISES * STOCK VALUE 

FIZZLED FINANCE * STOCK VALUE 

ALLWEED ACRES * GROWTH PERCENTAGE 

BURNT BAKERIES * GROWTH PERCENTAGE 
CRUMBLED COMMUNICATIONS * GROWTH PERCENTAGE 
DENTED DESKS, INC * GROWTH PERCENTAGE 
ELONGATED ENTERPRISES * GROWTH PERCENTAGE 
FIZZLED FINANCE * GROWTH PERCENTAGE 
INVESTMENT CHOICE/TYCOON #1's TOTAL WORTH 


TYCOON £2's TOTAL WORTH 
VARIOUS CALCULATIONS 


VARIOUS CALCULATIONS 
VARIOUS CALCULATIONS 
AMOUNT INVESTED 

TYCOON £1'SSTOCKHOLDINGS 
TYCOON £2 SSTOCKHOLDINGS 
TYCOON #1’S MONEY 

TYCOON #'5 MONEY 


<< სპ თაა: = p ue шотта ow 


Sample Run (Excerpt) 


MONEY MAD 
TYCOON #1 ?JOE 
TYCOON #2 BILL 
YOU EACH START OUT WITH $10000 
THE FOLLOWING STOCKS ARE AVAILABLE 
#1ALLWEEDACRES $376 
#2 BURNT BAKERIES $452 
#3 CRUMBLED COMMUNICATIONS $165 
#4 DENTED DESKS, INC. $200 
#5 ELONGATEDENTERPRISES $419 
#6 FIZZLED FINANCE $68 
#7 INDEPENDENT VENTURES ? 
NEXT REPORT 
#1 ALLWEED ACRES $454.5712 
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#2 BURNT BAKERIES $880.3152 
#3 CRUMBLED COMMUNICATIONS $221.9725 
#4 DENTED DESKS, INC. $98.94 

#5 ELONGATED ENTERPRISES 145.4349 
#6 FIZZLED FINANCE $110.6768 
#7 INDEPENDENT VENTURES ? 
TYCOON CASH STOCKHOLDINGS 

JOE 10000 0 

BILL 10000 0 


JOE WHAT WILL YOU INVEST IN? 
(ENTER 1-7) 21 
# OF SHARES? 10 
TOTAL COST =$4544.712 
BILL WHAT WILL YOU INVEST IN? 
(ЕМТЕК 1-7) ?2 
# OF SHARES? 5 
TOTAL COST =$4401.576 
NEXT REPORT 
#2 BURNT BAKERIES $279.3634 
# BURNT BAKERIES $1662.6513 
#3 CRUMBLED COMMUNICATIONS $390.4039 
#4 DENTED DESKS, INC. $137.3124 
#5 ELONGATED ENTERPRISES $09. 1164 
#6 FIZZLED FINANCE $180.3404 
#7 INDEPENDENT VENTURES ? 
TYCOON CASH STOCKHOLDINGS 
JOE 5455.288 2793.634 
BILL 5598.424 8313.2565 
JOE WHAT WILL YOU INVESTIN? 
(ENTER 1-7) ?7 
AMOUNT INVESTED? 2000 
PAYOFF IS 58% 
BILL WHAT WILL YOU INVEST IN? 
(ENTER 1-7) ?7 
AMOUNT INVESTED? 3000 
PAYOFF IS — 12% 
NEXT REPORT 
ее 
TYCOON CASH STOCKHOLDINGS 
JOE 6615.288 2542.814 
BILL 5598.424 —504.59 


(NOTE — It looks like BILL's in trouble) 
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Gambling Boxes 


In this game, each of the two players starts out with $10. The 
first player to gather more than $500 wins the game. 

On each round the players are offered three mystery boxes 
labeled X, Y, and Z that can multiply their fortunes (the computer 
randomly selects one of the players to go first each round). The 
maximum values for each is explained in the program instructions. 
Notice that, while X can have the greatest multiplier value, it can 
also have the greatest tax rate. Box Z can thus conceivably be 
worth more than box X. This, of course, is the gambling aspect of 
the game. 

On each round any given box may be selected only once. For 
example, if Player #1 takes box X, Player #2 is limited to choosing 
box Y or boxZ. See Fig. 2-3forthe flowchart. 


Standard BASIC 


9. PRINT:PRINT:PRINT:PRINT 
7 PRINT“", “GAMBLING BOXES”: PRINT 
10 LET A=10:LET B=10 
12 LET X=17:LET Y=19:LET Z=23 
15 PRINT“PLAYER #1”; 
17 INPUT A$ 
20 PRINT“PLAYER #2”; 
22 INPUT B$ 
25 PRINT"EACH X BOX CAN MULTIPLY YOUR FORTUNE BY” 
27 PRINT"UP TO 10, WITH UP TO 75% TAXES. EACH” 
30 PRINT"Y BOX CAN MULTIPLY BY UP TO 5 WITH TAXES" 
32 PRINT"UP TO 50%. ZCAN MULTIPLY UP TO2 WITH" 
35 PRINT"NO MORE THAN 25% TAXES." 
45 LET P=INT(RND(O)*2)+1 
47 LETM=INT(RND(0)*100)+1 
50 LETN-INT(RND(0)*50)-1 
52 LET Q=INT(RND(0)*20)+1 
55 LETM=M/10:LET N=N/10:LET Q=Q/10 
57 LET R=INT(RND(0)*75)+1 
60 LETS=INT(RND(0)*50)+1 
62 LET T=INT(RND(0)*25)+1 
64 IF P=1 THEN GOTO 100 
66 LETC=0:GOSUB 200 
68 GOSUB 320 
70 IFA>500 THEN GOTO 150 
75 IFB>500 THEN GOTO 160 
80 PRINT“NEXT ROUND” 
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GOTO 45 
LET D=0 
GOSUB 320 


GOSUB 200 
GOTO 70 


PRINT A$;" WINS!” 
END 

PRINT B$;" WINS!" 
END 

PRINT B$;", WHAT BOX WILL YOU TAKE"; 
INPUTD 

IF D=C THEN GOTO 235 

IF D=X THEN GOTO 245 

IF D=Y THEN GOTO 265 

IF D=Z THEN GOTO 275 

GOTO 200 

PRINT A$;“ ALREADY TOOK THAT BOX” 
GOTO 200 

LET E=B*M:LET F=E+(R/100) 

LET H=R:LET B=E—F: LET L=B 
PRINT“VALUE 15 $"; Е 

PRINT“TAXES =”; H;“%” 

PRINT“YOU NOW HAVE $”; L 

RETURN 

LET E=B*N: LET F=E*(S/100) 

LET B=E—F: LET H=8:LET L=B 

GOTO 250 

LET E=B*Q:LET F=E*(T/100) 

LET B=E—F:LET H=T:LETL=B 

GOTO 250 

LET E=A*M:LET F=E*(R/100) 
LETA=E-F:LETH=R:LET L-A 

GOTO 250 

LET E=A*N: LET F=E*(S/100) 

LET A=E-—F: LET H=S:LETL=A 

GOTO 250 

LET E=A*Q:LET F=E*(T/100) 

LET A=E-—F: LET H=T:LETL=A 

GOTO 250 

PRINT A$;" WHAT BOX WILL YOU TAKE"; 
INPUTC 

IF C=D THEN GOTO 355 

IF C=X THEN GOTO 285 

IF C=Y THEN GOTO 295 

IF C=Z THEN GOTO 305 

GOTO 320 


SETINITIAL SCORES 
P=RND(2) 


N 
YES 
INPUT 
A$ CHOICE 
NO 


INPUT 
8$ CHOICE 


| FORTUNE 
| FORTUNE ADJUST ADJUST 


INPUT | INPUT 
A$ CHOICE ; BSCHOICE 


SAME AS 
AS? 


NO ¥ 


FORTUNE ADJUS POR TUNE 


Fig. 2-3. Flowchart for Gambling Boxes. 
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355 
360 


PRINT B$;" ALREADY TOOK THAT BOX" 
GOTO 320 


TRS-80 BASIC 


CLS:P.:P."* ,"GAMBLING BOXES":P. 
A=10:B=10:X=17: Y=19:Z=23 
IN."PLAYER #1”; A$: IN. “PLAYER #2”; B$ 
P."EACH X BOX CAN MULTIPLY YOUR FORTUNE BY" 
P."UP TO 10, WITHUP TO 75% TAXES. EACH" 
P."Y BOX CAN MULTIPLY BY UPTO5 WITH TAXES" 
P."UP TO 50%. Z CAN MULTIPLY UP TO2 WITH" 
P."NO MORE THAN 25% TAXES." 
P=RND(2):M=RND(100)/10:N=RND(50)/10 
Q=RND(20)/10: R=RND(75):S=RND(50):T=RND(25) 
IF P=1G.100 

C=0:GOS. 200 

GOS.320 

IF A>500G.150 

IF B>500 G. 160 

P."NEXT ROUND”: 6.45 

D=0:GOS.320 

GOS. 200 

G.70 

P.A$;" WINS!” 

END 

P.B$;" WINS!” 

END 

P.B$;", WHAT BOX WILL YOU TAKE”; 

IN.D 

IF D2C G.235 

IF D=X G.245 

IF D=Y G.265 

IF D=Z G.275 

G.200 

P.A$;" ALREADY TOOK THAT BOX" 

G.200 

E=B*M:F=E+(R/100):H=R:B=E—F:L=B 
P.“VALUE IS $”; Е 

P."TAXESz 5H;"9e" 

P.“YOU NOW HAVE $”;L 

RET. 

E=B*N:F=E*(S/100):H=S: B=E—F:L=B 

G.250 

E=B*Q:F=E*(T/100): H=T: B=E— F: L=B 

G.250 

E=A*M:F=E*(R/100): AZE- F:H-R:L-A 


290 C.250 

295 E=A*N:F=E*(S/100):A=E—F:H=S:L=A 

300 G.250 

305 E-A*Q:F—E*(T/100: AZE- F:H-T:L—A 

310 C.250 

320 Р.А$;“, WHAT BOX WILL YOU TAKE"; 
IN.C 


330 IFC=DG.355 

335 IL C=XC.285 

340 IFC=YG.295 

345 IFC-ZG.305 

350 C.320 

355 Р.В$;“ ALREADY TOOK THAT BOX” 
360 C.320 


Summary of Variables Used 


A$ РТАУЕК #1 

D$ PLAYER #2 
A$SCORE 

B$ SCORE 

A$ BOX CHOICE 

B$ BOX CHOICE 
BOX VALUE 

TAXES 

TAX PERCENTAGE 
CURRENT SCORE 
BOX 1 MULTIPLIER 
BOX2 MULTIPLIER 
PLAYERSELECT 
BOX 3 MULTIPLIER 
BOX 1 TAX 

ВОХ 2 TAX 
ВОХЗТАХ 

BOX1 

BOX2 

BOX3 


меко C 2 O rg Z Z r tri rz t оС tg > 


Sample Run (Excerpt) 


GAMBLING BOXES 
PLAYER #1?HOMER 
PLAYER #2?JETHRO 
ЕАСНХ BOX CAN MULTIPLY YOUR FORTUNE BY 
UP TO 10, WITHUP TO 75% TAXES. EACH 
Y BOX CAN MULTIPLY BY UP TO5 WITH TAXES 
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UP TO 50%. 2 CAN MULTIPLY UP TO2 WITH 
NO MORE THAN 25% TAXES. 

HOMER, WHAT BOX WILL YOU TAKE? X 
VALUE IS $73 

TAXES = 38% 

YOU NOW HAVE 45.26 

JETHRO, WHAT BOX WILL YOU TAKE?X 
HOMER ALREADY TOOK THAT BOX 
JETHRO, WHAT BOX WILL YOU TAKE?Y 
VALUE IS $21 

TAXES = 42% 

YOU NOW HAVE $12.18 

NEXT ROUND 

JETHRO, WHAT BOX WILL YOU TAKE?X 
VALUE IS $101.094 

TAXES = 50% 

YOU NOW HAVE $50. 547 

HOMER, WHAT BOX WILL YOU TAKE?Z 
VALUE IS $54.312 

TAXES = 11% 

YOU NOW HAVE $48.33768 

NEXT ROUND 

JETHRO, WHAT BOX WILL YOU TAKE?X 
VALUE IS $121.3128 

TAXES = 65% 

YOU NOW HAVE $78.85332 

HOMER, WHAT BOX WILL YOU TAKE?Y 
VALUE IS $145.01304 

TAXES =7% 

YOU NOW HAVE $134.8621272 

NEXT ROUND 
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Stack Cut 


In this game, the computer shuffles a deck of cards. The suits 
are ignored: only the numerical values are counted. Aces count as 
one, Jacks as 11, Queens as 12, and Kings as 13. There are also two 
jokers іп the deck which each count as — 35. 

The players take turns cutting the stack of cards. A player may 
cut from one to ten cards; then the value of the top card is added to 
that player's score. When the deck runs out of cards, the computer 
starts over at the beginning of the deck. The cards all retain the 
same positions throughout the game, and can be played more than 
once, so the position of certain cards can be memorized. For an 
even more difficult version of the game eliminate step 330, which 
displays the card's positional number. 

As the program is written, each player cuts the stack 35 times, 
then the game is ended and the winner is declared. You can vary the 
number of turns in a game by changing step 205. The more turns 
there are, the more times the players will go through the deck, 
turning Stack Cut into more of a game of memory and strategy than 
chance. The first few passes through the deck are inevitably played 
as pure chance. See Fig. 2-4 for the flowchart. 


Standard BASIC 


10 FORX=1TO 54 

15 LETA(X)=0 

20 PRINT 

25 МЕХТХ 

30 PRINT”, “STACK CUT" 

35 LET X=INT (RND(0)*54)4-1 
40 LETA(X)=—35 

45 LET X=INT(RND(0)*54)+1 
50 IF A(X)<0 THEN GOTO 45 
55 LETA(X)=—35 

60 PRINT"NAME OF PLAYER #1”; 
65 INPUT A$ 

70 GOSUB 450 

72 GOSUB 450 

74 LET T=0.5 

76 LETA=0 

78 LETB=0 

80 LETF=1 

82 LETC-INT(RND(0)*2)-1 
85 PRINT“NAME OF PLAYER #2”; 
90 INPUT B$ 

95 GOSUB 450 
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LET X=1 

FOR Ү-1Т013:ҒОК Z=1TO4 
IF A(X)=0O THEN СОТО 125 
LET X=INT(RND(0)*54)+1 
GOTO 110 

LET #(X)=V 
PRINT:NEXTZ 

NEXT Y 

IF C=2 THEN GOTO 180 
GOSUB 200 

PRINTAS; 

GOSUB 300 

LET A=A+Q 

LET C=2 

GOSUB 200 

PRINT В$; 

GOSUB 300 

LET B=B+Q 

LET C=1 

GOTO 150 

LET T=T+0.5 

LET S=INT(T) 

IF S235 THEN GOTO 235 
PRINT “TURN #”;S 
PRINT 

PRINT“SCORE TO DATE” 
PRINT“ ”; АФ,В% 

РАМТ“ ”, А,В 

PRINT 

PRINT 

RETURN 

PRINT“GAME IS OVER" 


PRINT 

FOR X=1T0 555 

NEXT X 

PRINT“FINAL SCORE” 
PRINT" ",A$,B$ 

PRINT" ”,A,B 

IF A=B THEN GOTO 280 
IF A>B THEN PRINT А6; 
IF A<B THEN PRINT В$; 
РАМТ“ WINS!” 

END 

PRINT“HOW ABOUT THAT?! ** A TIE!” 
END 

PRINT“, YOUR CUT”; 


SHUFFLE 
DECK 


TURNSELEC 


SCORE UPDATE 


ADVANCE SCORE 


END ) 


Fig. 2-4. Flowchart for Stack Cut. 


ASS NO ‘ 
TURN B$'S TURN 
YES 


SCOREUPDATE 


TURNUP 
CARD 


sovanceseone 
REVERSE TUAN 


=C 


FINAL SCORE 
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INPUTD 

LET D=INT(D) 

IF D>10THEN GOTO 420 

IF D<1 THEN GOTO 420 
LET F=F+D 

FOR X=1TO470 

NEXT X 

IF F>54 THEN LET F=F—54 
PRINT"CARD #”;Е 

PRINT“ YOU DREW ---”; 

LET Q=A(F) 

FOR X= 1 T0333 

NEXT X 

IF Q>10 THEN GOTO 400 

IF Q<2 THEN GOTO 360 
PRINT Q 

RETURN 

IF Q=—35 THEN GOTO 375 
PRINT“ACE” 

RETURN 

PRINT“JOKER!” 

FOR X=1 TO 370 

NEXT X 

LET G=INT(RND(0)*30)+4 
FOR X=1TOG 

LET Z=INT(RND(0)*1047)+1 
PRINT ATZ,“ НА! ”; 

FOR Y=1TO75 

NEXT Y 

NEXTX 

RETURN 

IF Q=11 THEN PRINT “JACK” 
IF Q=12 THEN PRINT “QUEEN” 
IF Q=13 THEN PRINT “KING” 
RETURN 


PRINT“ PLEASE DO NOT CHEAT, ”; 


IF C=1 THEN PRINT A$ 

IF C=2 THEN PRINT B$ 
GOTO 300 

FOR X=1T013 

LET Y=INT(RND(0)*54)+1 
IF A(Y)=0 THEN СОТО 470 
GOTO 455 

LET A(Y)=X 

NEXT X 

RETURN 


TRS-80 BASIC 


CLS 

F.X=1T054:A(X)=0:N.X 
P.:P."","STACK CUT’: P. 
X=RND(54) 

A(X)—— 35 

X-RND(54) 

IFAQX)«0G.35 

A(X)—— 35 

IN. “NAME OF PLAYER #1”; A$ 


GOS .450 
GOS.450 


Т=0.5:Е=1 

A=0:B=0 

C=RND(2) 

IV. "МАМЕ OF PLAYER #2”;B$ 
GOS.450 

X=1 
F.Y=1T013:F.Z=1T04 
IF AX)=0G.115 
X=RND(54) 

G.100 

A(X) y: N.Z 

N.Y 

CLS 

IF C=2G.180 

GOS. 200 

P. A$; 

GOS.300 

A=A+Q 

C=2 

GOS.200 
P.B$;:GOS.300 
B=B+Q:C=1 

G. 150 
T=T+0.5:S=INT(T) 
IF S» 35G.235 
P."TURN #”;S:P. 
P.“SCORE TODATE” 
Р.“” A$, BS 
Р.“”,А,В:Р.:Р. 

КЕТ. 

P.“GAME IS OVER": P. 
F.X=1T0555:N.X 
P.“FINAL SCORE” 
Р.“”,А$,В$ 
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255 Р.“”,А,В 

260 IFA-B G.280 

265 IFA-BP.AS; 

270 IFA«BP.B$; 

275 Р.“ WINS!”:END 

280 P.“HOW ABOUT THAT?! ** A TIE!” 
285 END 

300 IN.“, YOUR CUT”;D 

305 D=INT(D) 

310 IFD»10G.420 

315 IFD«1G.420 

320 F=F+D:F.X=1T0470:N.X 
325 II >54 THEN F=F—54 
330 P.“CARD#";F 

335 P."YOU DREW ---”; 

340 Q=A(F):F.X=1T0333:N.X 
345 IFQ>10G.400 

350 IFQ<2G.360 

355 P.Q:RET. 

360 IF Q=—35G.375 

365 Р.“АСЕ” 

370 ВЕТ. 

375 P.“JOKER!” 

380 F.X-1TO470:N.X: G-RND(30) 4-3 
385 F.X=1TOG:Z=RND(1047) 
390 P.ATZ, “НА! 7; 

395 F.Y-1TO75:N. Y: N. X: RET. 
400 IFQ-11P."JACK" 

405 IFQ=12P.“QUEEN” 

410 IF Q=13 P.“KING” 

415 RET. 

420 P."PLEASE DO МОТ CHEAT, ”; 
425 IF C=1P.A$ 

430 IFC=2P.B$ 

435 G.300 

450 Ғ.Х-1Т013 

455 Y-RND(54) 

460 IF ACY)=0G.470 

465 G.455 

470 A(Y)=X 

475 М.Х 

480 ВЕТ. 


Sample Run (Excerpt) 


STACK CUT 
NAME OF PLAYER #1? RALPH 
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NAME OF PLAYER #2? РОТЕ 
TURN #1 
SCORE TODATE 
RALPH РОТЕ 
0 0 
RALPH, YOUR CUT? 5 
CARD #6 
YOU DREW --- QUEEN 
TURN #1 
SCORE TO DATE 
RALPH POTSIE 
12 0 
POTSIE, YOUR CUT? 10 
CARD #16 
YOU DREW ---3 
TURN #2 
SCORE TO DATE 
RALPH . POTSIE 
12 3 
RALPH, YOUR CUT? 3 
CARD #19 
YOU DREW --- 5 
TURN #2 
SCORE TODATE 
RALPH POTSIE 
17 3 
POTSIE, YOUR CUT? 54 
PLEASE DO NOT CHEAT, POTSIE 
YOUR CUT? 8 
CARD #27 
YOU DREW --- 6 
TURN #3 
SCORE TO DATE 
RALPH . POTSIE 
17 9 
RALPH, YOUR CUT? 5 
CARD #32 
YOU DREW --- JOKER! 
HA! HA! HA! 
HA! HA! HA! 
HA! 
HA! HA! 
TURN #3 
SCORE TO DATE 
RALPH POTSIE 
—18 9 
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РОТЕ, YOUR CUT? 10 


CARD #42 

YOU DREW --- АСЕ 
TURN #4 

SCORE TO DATE 
RALPH POTSIE 
— 18 10 


TURN #35 

SCORE TO DATE 
RALPH POTSIE 
212 203 
POTSIE , YOUR CUT? 4 
CARD #6 

YOU DREW --- QUEEN 
GAME IS OVER 
FINAL SCORE 

RALPH РОТЕ 
212 215 
POTSIE WINS! 


Variables Used 


A$ PLAYER #1 

В$ PLAYER #2 

A$’S SCORE 

BS'S SCORE 
TURN SELECT 
CUT CHOICE 
CARD# 

“HA!” COUNT 
TOP CARD VALUE 
TURN COUNT 
TURN COUNT 
TIMING & MISC. 
TIMING & MISC. 
“HA!” LOCATION 


N KIND ООО J > 
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IIT. 


Chapter 3 > | | 
Frustration 


сэ > q < 4 o» qp 
i 
..ეი.იიიიიიიიი” 
—— — OÚ nas 


This game merits a chapter all to itself since it has four versions. 

The object of Frustration is to move your marker through the 
hundred-space grid from the first space to the hundredth. Each 
space has a concealed value, usually from —10 to +10 points, but 
some are booby traps that send you back to the starting position 
(that’s the frustrating part). There is also one bomb, and if you hit it 
the game ends immediately. 

Since you want to reach the end position with as high a score a 
possible, you might want to delibrately land on a booby trap to pick 
up more points. But the computer also keeps track of how many 
moves you take. Develop your own par for reaching the end, in as 
few moves possible, with the highest score. 

The two-player version repeats the main game program 
(which is a solitaire version), so that you can match your skill and 
luck against your opponent. Player number 2 moves from the 
hundredth space to the first, otherwise the rules are the same as 
the one-player version—with one addition. If you land on a space 
already occupied by your opponent, he must return to his starting 
position. 

The third version of Frustration has the computer taking the 
part of your opponent. It is programmed not to cheat: in deciding its 
moves it only knows what’s under a space if that space has already 
been played. But once it learns what’s at a space, you can be sure it 
doesn't forget! 

The fourth version is a sort of ultimate. Again a two-player 
game is played, but this time the computer plays both sides: you 
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just sit back and watch. If the other versions of the game get too 
frustrating, it can help to watch the computer have as much trouble 
with it as you do. 

As frustrating as this game is, it appears to be addictive. I've 
tried it on several people, and once started they can't seem to leave 
it alone. 

In all versions each move is from 1 to 6 spaces. 

No sample run is given for the last two versions, because 
they’d look essentially like the two-player version, for which a 
sample run is given. See Fig. 3-1 for the flowchart. 


SET UP BOARD 


DRAW GRID 


Mi 


ADVANCE 
MARKER 


Fig. 3-1. Frustration Flowchart. 


ADJUST SCORE |; 


NO ¥ 
BLANK SPACE 
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Main Game Program 


Standard BASIC 


FOR X=1 TO 100 

PRINT 

LET A(X)=0 

NEXT X 

PRINT“”, “FRUSTRATION!”: PRINT: PRINT 
REM “PLANT POINTS * 

FOR X=1 TO 50 

LET Y=INT(RND(0)*98)+2 
LET Z=INT(RND(0)*21)— 10 
LET A(Y)=Z: NEXT X 

REM * PLANT BOOBY TRAPS * 
FOR X=1TO13 

LET Y=INT(RN oe 

LET A(Y)=—50:N.X 

REM * PLANT BOMB * 

LET Y=INT(RND(0)*80)+11 
LET A(Y)=— 100: LET A(1)=100 
LET P=1:LET N=0 

LET Q=0:LET S=0 

GOSUB 200 

REM “THE PLAY * 

LET S=S+1 


PRINT: PRINT“MOVE #”; 5, “YOUR SCORE IS”;Q 


PRINT“YOUR MOVE”; 
INPUT М 

LET M=INT(M) 

IF M<1 THEN GOTO 240 

IF M>6 THEN GOTO 240 
LET A(P)=N: LET R=P+M 
LET N=A(R) 

PRINT“YOU JUST FOUND”; 
FOR X=1 T0333 

NEXT X 

IF N=0 THEN GOTO 235 

IF N<—10 THEN GOTO 245 
PRINT N;" POINTS!” 

REM * ADJUST SCORE & POSITION * 
LET Q=Q+N 

LET P=R 

LET A(P)=100 

FOR X=1 ТО 555: NEXT X 
КЕМ “TEST FOR WIN * 
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110 IF P>99THEN СОТО 120 

115 GOTO45 

120 REM* END САМЕ * 

125 GOSUB 200 

130 PRINT"YOU MADE ITIN ”;$;“ MOVES!" 
135 FOR X=1 TO333:NEXT X 

140 PRINT" AND WITH A SCORE ОЕ”; 0) 

145 IFQ«10 THEN PRINT "THAT STINKS!" 
150 IF Q>50 THEN PRINT “FANTASTIC!” 
155 END 

200 КЕМ* DRAW GRID * 

202 LETJ=O 

205 FORX=1T0O10 

206 PRINT“”, 

208 FORY=1T010 

210 LETJ=J+1 


212 IFAQ)= ү ვა GOTO 230 
215 PRINT 


220 МЕХТ Y 

222 PRINT 

224 NEXT X 

226 PRINT:PRINT 

228 RETURN 

230 PRINT “O”; 

232 GOTO 220 

235 PRINT “ABSOLUTELY NOTHING" 
237 GOTO 100 

240 PRINT"INVALID MOVE" 

242 GOTO54 

245 IFN ——100 THEN GOTO 260 
247 PRINT"ABOOBY TRAP!” 

250 LETN=0 

252 LETP=1 

254 LETA(P)=100 

256 GOTO105 

260 PRINT“THE BOMB” 

265 FOR X=1TO470:NEXTX 

270 FORX=1TO4:PRINT:NEXT X 
275 PRINT“”,“**** BOOM!! ****” 
280 FORX-ITO4:PRINT:NEXT X 
285 END 


TRS-80 BASIC 


5 CLS:P.:P.:P.:F.X=1T0100:A(X)=0:N.X 
15 P."","FRUSTRATION'":P.:P. 
20 F.X=1T050: Y=RND(98)+1:A(Y)=RND(21)— 11:N.X 
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25 F.X-1TOIS3:Y-RND(90)2-5:A(Y)——50:N.X 
30 Y=RND(80)+10:A(Y)=— 100 
40 A(1)=100:P=1:N=0:Q=0:S=0 
45 GOS.200 
50 S=S+1:P.:P. "MOVE #”;S, “YOUR SCORE IS ;Q 
55 IN.“YOUR MOVE”; M:IF M<1G.240 
60 IFM>6B.240 
65 M=INT(M):A(P)=N:R=P+M:N=AR) 
70 P.“YOUJUSTFOUND”; 
75 F.X=1T0333:N.X:IF N=0G.235 
80 IFN<—10G.245 
90 P.N;“ POINTS!” 
95 Q=Q+N 
100 P=R:A(P)=100 
105 F.X-1TO555:N.X 


110 IF P>99G.120 
115 G.45 


120 GOS.200:P.“YOU MADEITIN”;S;“ MOVES!” 
122 F.X=1T0333:N.X 

125 P.“AND WITHASCORE OF ”;Q 

130 IF Q<10P.“THAT STINKS!” 

135 IFQ>50P.“FANTASTIC!” 

140 END 

200 J=0:F.X=1T010:P.“” 

205 F.Y=1T0O10:J=J+1 

210 IFAQ)=100G.230 

215 Р.“Х”; 

220 N.Y:P.:N.X:P.: RET. 

230 Р.“О”;:С.220 

235 Р.“АВЗОГОТЕГУ NOTHING!”:G. 100 
240 P."INVALID MOVE”:G.55 

245 IFN=—100G.260 

250 P."ABOOBY TRAP!" 

255 N=0:P=1:A(P)=100:G. 105 

260 P.“ THE BOMB”:F.X=1T0470:N.X 
265. PoP Pera Se BOOMS" 
20 P.:P.:P.: P. 

275 END 


Summary of Variables Used 


J GRIDPOSITION 

M MOVE 

№ VALUE OF OCCUPIED SPACE 
P POSITION 

Q SCORE 

К NEW POSITION 
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S MOVE# 
X TIMING 
Y VARIOUS 


Sample Run (Excerpt) 


FRUSTRATION 
OXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 


МОУЕ#1 — YOURSCOREISO 


YOUR MOVE? 6 


YOUJUST FOUND – 10 POINTS! 


MOVE #2 
YOUR MOVE? 6 


XXXXXXOXXX 
XXXXXXXXXX 
XXXXXXXXXX 
ХХХХХХХХХХ 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
YOUR SCORE IS — 10 


YOUJUST FOUND2 POINTS! 


MOVE #3 
YOUR MOVE? 6 


XXXXXXXXXX 
XXOXXXXXXX 
XXXXXXXXXX 
KXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 


XXXXXXXXKA 
YOURSCOREIS—& 


YOUJUST FOUND A BOOBY TRAP 
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OXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
AXXXXXXXKX 
AXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
MOVE #4 YOUR SCORE IS -8 
YOUR MOVE? 
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Two Man Frustration 


Standard BASIC 


ENTER THE MAIN GAME PROGRAM, THEN ADD 
THE FOLLOWING STEPS: 

16 PRINT"PLAYER #1”; 

18 INPUTAS 

27 PRINT"PLAYER #2”; 

29 INPUT B$ 

35 GOSUB500 

52 PRINT:PRINT A$;"MOVE #”;5,“ҮОШЕ SCORE 15”; 9 
82 IFN=200THEN GOTO 290 
110 IFP>99THEN GOTO 400 
115 GOTO300 

155 RETURN 

213 IF A()=200 THEN СОТО 490 
290 LET A(C)-B:LET A(100)=200 
292 LETC-100:LET B-0 

294 LETN=0 

296 PRINT B$ 

298 СОТО 100 

300 GOSUB 200 

305 PRINT:PRINT B$;" MOVE #”;S,“YOUR SCOREIS”;A 
310 PRINT"YOUR MOVE "; 

312 INPUTM 

315 IFM«1THEN GOTO 460 
320 ЕМ>6ТНЕМ GOTO 460 
325 LET A(C)=B:LET R-C-M 
330 LETB-A(R) 

333 PRINT" YOU JUST FOUND”; 
335 РОК Х=1 ТО 333:МЕХТХ 
340 ІЕВ=0ТНЕМСОТО 440 
345 ІЕВ<-10ТНЕМ GOTO 445 
350 IF B=100 THEN GOTO 465 
355 PRINT B;" POINTS!" 

360 LETA=A+B 

365 LET C-R:LET A(C)=200 

370 FORX-1TO555:NEXT X 
375 IFC«2 THEN GOTO 405 
380 GOTO45 

400 PRINT A$ 

402 GOTO410 

405 PRINT В$ 

410 PRINT“ MADE IT IN”;S;“ MOVES" 
412 GOSUB 200 


415 PRINT:PRINT“”,“FINAL SCORE” 
420 PRINT A$,Q 

422 GOSUB 145 

425 PRINT:Q=A 

430 PRINT 830 

432 GOSUB 145 

435 END 

440 PRINT"ABSOLUTELY NOTHING" 
442 GOTO 365 

445 IFB-—100THEN GOTO 260 
450 PRINT"A BOOBY TRAP!” 
452 LETB=0:LET C=100 

454 LET A(C)=200 

457 GOTO370 

460 PRINT“INVALID MOVE” 
462 СОТО 310 

465 LET A(P)=N:LET А(1)=100 
470 LETN=0:LET B=0 

475 LETP=1 

480 PRINT A$ 

485 GOTO 365 

490 PRINT“8”; 

495 GOTO220 

500 LETA=0:LETB=0 

505 LETC-100 

510 LET A(100)—200 

515 PRINT 

520 RETURN 


STEPS 120 to 125 are not used in this 
version and may be eliminated. 


TRS-80 BASIC 


ENTER THE MAIN GAME PROGRAM THEN ADD THE 
FOLLOWING STEPS: 
22 IN.“PLAYER #1”; Аф 
27 IN."PLAYER #2”; В$ 
42 A=0:B=0:C=100;A(100)=200:P. 
50 S=S+1:P.:P.A$;“ MOVE #”;5, “YOUR SCORE1IS”;Q 
85 IFN=200G.290 
110 IFP>99G.400 
115 G.300 
140 RET. 
212 IF AQ)=200G.285 
285 P.“8”;:G.220 
290 A(C)=B:A(100)=200:C=100:B=0:N=0 
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P.B$:G.100 

GOS.200 

Р.:Р.В$“ MOVE £?;S,"YOURSCOREIS' 5A 
IN. “YOUR MOVE”; M 

IF M«1G.460 

IF M>6 G.460 
A(C)=B:R=C—M:B=A(R) 
P.“YOU JUST FOUND”; 
F.X=1T0333:N.X 

IF B=0G.440 

IF B<—10G.445 

IF B=100 G.465 

P.G;“ POINTS!” 

A=A+B 

C=R:A(C)=200 
F.X=1T0555:N.X 

IF C«2 6.405 

G.45 

P.A$;:G.410 

Р.В$; 

P."MADEITIN ”;S;“ MOVES": GOS.200 
P.:P."","FINALSCORE" 
P.A$,Q:GOS. 130 

P.:Q=A 

P.B$,Q:GOS.130 

END 

P."ABSOLUTELY NOTHING": G.365 
IF B=— 100 6.260 

P.“A BOOBY TRAP!” 
B=0:C=100:A(C)=200:G.370 
P.“INVALID MOVE”:G.310 
A(P)=N:A(1)=100:N=0:P=1:B=0 
P.A$:G.365 


Steps 120 & 125 of the Main Game Program are 
bypassed in this version, and may be eliminated. 


Summary of Variables Used 


A$ 
В$ 


PLAYER #1 

РГАУЕК #2 

ВУЗ SCORE 

VALUE OF B$'S SPACE 
ВФ'А POSITION 


GRID POSITION 


MOVE 
VALUE OF A$’S SPACE 


Mec 0 DOT 


Two-Player Version Sample Run (Excerpt) 


A$’S POSITION 
А$ 5 SCORE 
NEW SPACE 


MOVE# 
TIMING 
VARIOUS 


FRUSTRATION 


PLAYER #1? HOMER 
PLAYER #2? JETHRO 


OXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 


XXXXXXXXXX 
XXXXXXXXXX 


XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXX8 


HOMER MOVE #1 


YOUR SCORE 150 


YOUR MOVE ?5 


YOUJUST FOUND 3 POINTS! 


JETHRO MOVE #1 


YOUR MOVE? 6 


XXXXXOXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXX8 


YOU JUST FOUND - 5 POINTS! 


X XX X XC) X X X X 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 


YOUR SCORE 50 
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XXXXXXXXXX 
XXX8XXXXXX 

HOMER MOVE #2 YOUR SCORE IS3 

YOUR MOVE? 4 

YOUJUST FOUND ABSOLUTELY NOTHING 
XXXXXXXXXO 
AXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXX8XXXXXX 

JETHRO MOVE #2 YOUR SCORE IS —5 

YOUR MOVE? 6 

YOUJUST FOUND 5 POINTS! 
XXXXXXXXXO 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXX8XX 
XXXXXXXXXX 

HOMER MOVE #3 YOUR SCORE [53 

YOUR MOVE? 
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Frustration vs. The Computer 


TRS-80 BASIC 


ENTER MAIN PROGRAM, THEN ADD THE FOLLOWING: 
35 A=0:B=0:C=100:A(100)=200 
42 FORX=101 TO 200:A(X)=0:N.X 
85 IFN=200G.290 
110 IFP>99G.405 
115 G.300 
ELIMINATE STEPS 120 TO 140 
212 IF AQ)=200G.285 
285 P.“8"3:G.220 
290 A(C)=B:A(100)=100:B=0:N=0 
295 P.“ME”:G.100 
300 P."TLLMOVE 7; 
305 E=C-6:F=0:G=E+100:D=C-1:U=E+100:V=D+100 
310 FORX-UTOV 
312 1ЕА(Х)> FGOS. 460 
315 N.X:GzG- 100: HZC- G: P.H 
320 F.X-1TO555:N.X 
330 P.:P.“IJUST FOUND”); 
335 A(C)=B:B=A(G):A(G+100)=B 
340 IFB=100G.390 
345 IFB=0OG.385 
350 IFB<—10G.450 
355 P.B;"POINTS!" 
360 A=A+B 
365 C=G:A(C)=200 
370 FORX=1TO555:N.X 
375 IFC«2G.410 
380 G.45 
385 P.“ABSOLUTELY NOTHING.”:G. 365 
390 A(P)=N:A())=100:P=1:N=0:B=0:P.“YOU”:G.365 
395 P."ABOOBY TRAP!”: A(100)=200:B=0 
400 С=100:С.370 
405 P.“YOU”;:G.415 
410 Р.“[”; 
415 P.“MADEITIN”;S;“MOVES” 
420 GOS.200 
425 P.:P."","FINALSCORE":P. 
430 P."YOU",Q 
435 Р.“МЕ”,А 
440 END 
450 IFB=—100G.260 
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455 
460 


G.395 
F=A(X):G=X:RET. 


Standard BASIC 


ENTER THE MAIN GAME PROGRAM THEN ADD 
THE FOLLOWING STEPS: 


GOSUB 470 
IF N=200 THEN GOTO 290 


IF P>99 THEN GOTO 405 
GOTO 300 


ELIMINATE STEPS 120 TO 155 
IF AQ)=200 THEN СОТО 490 
LET A(C)=B:LET A(100)=200 
LET C=100:LET B=0: LET N=0 
PRINT“ME” 
GOTO 100 
PRINT“TLL MOVE”; 
LET E-C-6:LET F=0 
LET G=E+100:LET Р=С-1 
LETU=E+100:LET V=D+100 
FOR X=U TOV 
IF A(X)>F THEN GOSUB 445 
NEXT X 
LET G=G—100: LET H=C—G 
PRINT H 
FOR X=1 TO 555:NEXT X 
PRINT: PRINT“I JUST FOUND ”; 
LET A(C)=B:LET B=A(G) 
LET X=G+100:LET A(X)=B 
IF B=100 THEN GOTO 390 
IF B=0 THEN GOTO 385 
IF B<—10 THEN GOTO 450 
PRINT B;“ POINTS!” 
LET A=A+B 
LET C=G:LET A(C)=200 
FOR X=1 T0555: NEXT X 
IF C<° THEN СОТО 410 
СОТО 45 
PRINT“ABSOLUTELY NOTHING.” 
GOTO 365 
LET A(P)=N:LET A(1)=100 
LET P=1:LET N=0:LET B=0 
PRINT “YOU”: GOTO 365 
PRINT“A BOOBY TRAP!” 
LET A(100)=200: LET B=0: LET C=100 
СОТО 370 


PRINT"YOU 5 

GOTO 415 

РЕПМТ“Г”; 

PRINT"MADE IT IN ”;S;“ MOVES" 
GOSUB 200 

PRINT:PRINT" ","FINALSCORE" 
PRINT:PRINT"YOU",Q 
РКІМТ“МЕ”,А 

END 

IF B=— 100 THEN GOTO 260 
GOTO 395 

LET F=A(X): LET G=X 
RETURN 

LET A=0:LET B=0 

LET C=100: LET A(100)=200 
FOR X=101 TO 200 

LET A(X)=0 

NEXT X 

RETURN 

PRINT“8”; 

GOTO 220 
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The Computer vs. Itself 


Standard BASIC 


PRINT: PRINT“”’, “FRUSTRATION!” 
REM* SET UP BOARD * 

FOR X =1 T0300 

LET A(X)=0 

NEXT X 

FOR X=1T0O 50 

LET Y-INT(RND(0)*98)4-2 
LET A(Y)ZINT(RND(0)*21)— 10 
NEXTX 

FOR Х=1ТО 13 

LET Y=INT(RND(0)*90)+6 
LET А(Ү)--50 

NEXT X 

LET A(1)=100:LET P=1 

LET N=0:LET Q=0:LET S=0 
LET A=0:LET B=0 

LET C=100:LET A(C)=200 
REM * THE PLAY* 

GOSUB 265 

LET S=S+1 

PRINT"MOVE #”;S, “PLAYER 1 MOVES”; 
LET E=P+6:LET F=0 

LET G=E+100: LET D=P+1 
LET U=D+100: LET V=G 
FOR X=U TOV 

IF A(X)>F THEN GOSUB 200 
NEXT X 

LET G=G—100: LET M=G-—P 
PRINT M 

FOR Х=1ТО 555:NEXT X 
PRINT"IJUST FOUND”; 
LET A(P)=N: LET N=A(G) 
LET X=G+100:LET A(G)=N 
IF N=200 THEN GOTO 205 
IF N=—50 THEN GOTO 225 
PRINT N;" POINTS!" 

LET Q=Q+N 

LET P=G:LET A(P)=100 
FOR X=1T0470:NEXT X 

IF P>99 THEN GOTO 235 
GOSUB 265 


PRINT“PLAYER 2 MOVES”; 

LET E=C—6:LET F=0 

LET G=E+200:LET D=C—1 

LET U=E+200:LET V=D+200 
FORX=UTOV 

IF АСӘ>Е THEN GOSUB 200 
NEXT X 

LET G=G—200: LET M=C—G 
PRINT M 

FOR X=1 TO 555:NEXT X 

PRINT “IJUST FOUND”; 

LET A(C)=B 

LET B=A(G) 

IF B=100 THEN GOTO 215 

IF B=—50 THEN GOTO 230 
PRINT B;“ POINTS!” 

LET A=A+B 

LET C=G 

LET A(C)=200 

FOR X=1 TO 470: NEXT X 

IF C<2 THEN GOTO 240 

GOTO 40 

LET F=A(X): LET G=X 

RETURN 

PRINT"PLAYER2! HA! HA!” 

LET A(C)=B:LET B=0 

LET C=100: LET N=0 

LET A(C)=200:GOTO 105 
PRINT“PLAYER 1! YUK! YUK!” 
LET A(P)=N: LET N=0 

LET B=0:LET P=1:LET A(P)=100 
GOTO 180 

LET P=:LET A(P)=100: LET N=0 
PRINT“A BOOBY TRAP!”: GOTO 110 
LET C=100:LET A(C)=200: LET B=0 
PRINT“A BOOBY TRAP!”: GOTO185 
PRINT“PLAYER 1”; 

GOTO 245 

PRINT“PLAYER 2”; 

PRINT“ MADE IT IN ”;S;“ MOVES" 
GOSUB 265 


PRINT“FINAL SCORE”, “PLAYER 1”, “PLAYER 2" 


РКІМТ“”,О,А 
END 

LET ]=0 
FORX-1TO 10 


275 PRINT"", 

280 КОК У=1ТО 10 

285 LETJ=J+1 

290 IF AQ)=100 THEN PRINT"O"; 
295 IF AJ)=200 THEN PRINT“8”; 
300 IF AQ)<100 THEN PRINT"X"; 
305 NEXT Y:PRINT 

310 NEXT X: PRINT 

315 RETURN 


TRS-80 BASIC 


5 P.:P.“”, “FRUSTRATION!” 
10 F.X=TO300:A(X)=0:N.X 
15 F.X.-ITO50: Y=RND(98)+1:A(Y)=RND(21)—11:N.X 
20 F.X=1TO13: Y=RND(90)+5:A(Y)=—50:N.X 
30 A(1)=100:P=1:N=0:Q=0:S=0:A=0: B=0:C=100:A(100)=200 
40 GOS.265:S=S+1:P.“MOVE #”:S, “PLAYER 1 MOVES”: 
50 E=P+6:F=0:G=E+100:D=P+1:U=D+100:V=E+100:F.X= 
UTOV 
55 IF A(X)>FGOS.200 
60 N.X:G=G—100:M=G—P:P.M 
65 F.X=1T0555:N.X 
70 P."IJUST FOUND”; 
75 A(P)=N:N=A(G):A(G+100)=N 
80 ІЕМ--200 6.205 
85 IFN=—50G.225 
90 P.N;'POINTS!" 
100 Q=Q+N 
105 P=G:A(P)=100 
110 F.X=1T0470:N.X 
115 IF P>99G.235 
120 GOS.265:P."PLAYER2 MOVES”: 
125 E=C—6:F=0:G=E+200: D=C~ 1: U=E+200: V=D+200:F.X= 
UTOV 
130 IF A(X)>FGOS.200 
140 N.X:G=G—200:M=C-—G:P.M 
145 F.X=1T0555:N.X:P.“IJUST FOUND ”; 
150 A(C)=B:B=A(G) 
160 IFB-100GOTO 215 
165 IF B=—50G.230 
170 P.B;" POINTS!”:A=A+B 
180 C=G:A(C)=200 
185 F.X=1T0470:N.X 


190 IFC« 26.240 
195 G.40 


200 F=A(X):G=X:RET. 
205 P."PLAYER2! HA! НА!”:А(С)=В:В=0:М№=0 
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210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
265 
270 
275 
280 
285 


C=100:A(C)=200:G.105 

P."PLAYER 1! YUK! YUK!”: AP)=N:N=0:B=0 
P=1:A(P)=100:G. 180 

P=:A(P)=100:N=0:P.“A BOOBY TRAP!”:G.110 
C=100:A(C)=200:B=0:P.“A BOOBY TRAP!”:G.185 
P.“PLAYER 1 ”;:G.245 

P. “PLAYER 2”; 

P. “MADE ITIN ”;S;“MOVES”:GOS.265 

P. “FINAL SCORE”, “PLAYER 1”, “PLAYER 2” 
P.“”, Q,A:END 

J=0:F.X=1TO10:P.“ ,:F.Y=1T010:J=J+1 

IF AJ)=100 P. “0”; 

IF AQ)=200 P.“8”; 

IF AQ)< 100Р.“Х”; 

N.Y:P.:N.X:P.:RET. 


Summary of Variables Used 


KX Co Z O "g Z Z OO o"Slmgou» 


PLAYER #2”SSCORE (i.e., THE COMPUTER) 
VALUE OF2'sSPACE 
2'sPOSITION 

MOVE CHOICE 

MOVE CHOICE 

MOVE CHOICE 

MOVE CHOICE 

GRID POSITION 

MOVE 

VALUE OF PLAYER #1'S SPACE 
T'S POSITION 

15 SCORE 

NEW POSITION 

MOVE ff 

TIMING 

VARIOUS 
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Chapter 4 
Non-Games 


The programs in this chapter aren't really games at all. One is a 
random probability demonstration, two are gag programs, and one 


is arandom music composer (it just writes the music, it doesn't play 
it.) 
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Coin Flipper 


А glance at the listing of this program should tell you that it's a 
simple one. There are only 25 steps. 

Step 10 simply clears the screen and prints the title. Step 15 
asks how many times you want the computer to flip the coin: this 
number is called X and should be a positive integer. After all, how 
can a coin be flipped —5.7 times? If a negative number or zero is 
entered, the program will bomb. 

If you like, you can block such an invalid entry by adding the 
following steps: 

17 X-INTOO 
18 IFX«1GOTO 15 

Step 20 tests the value of X. If X = 1 the program jumps, to 
step 115. C is randomly set to equal 1 (Heads) or 2 (Tails). The 
result is printed and the program cycles back to step 15 to start 
over. 

If step 20 finds X to be greater than 1, the program continues 
through step 25 which sets variables H (number of Heads) and T 
(Number of Tails) to zero. These variables are increased by one 
count each time the appropriate face comes up. Y is counted up to 
the value of X for the loop program (steps 30 to 55). On each pass 
through the loop C is randomly set to either 1 or 2. A 1 is counted as 
Heads (steps 45 and 50), while a 2 is counted as Tails (100 through 
110). 

After X loops, the total number of Heads and Tails are printed 
along with their percentages of the total of flips. If X is a reasonably 
large number, each should be close to 50 96. 

The percentage of Heads (A) and of Tails (B) are added (D). If 
the total does not equal 100%, an error message is printed and the 
computer stops. This can happen in certain cases because of 
internal rounding off of extreme decimal places within the compu- 
ter. If D equals 100%, the program cycles back to step 15 to start 
over. 

If you don't want to bother with the 100% check (the difference 
should never be more than a very minute fraction anyway), you can 
eliminate steps 85, 90 and 95, and replace them with 

90 GOTO 15 

When you want to terminate the program, just hit the BREAK 
key. 

See Fig. 4-1for the flowchart. 
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FLIP COIN | BENT id 
Fig. 4-1. Coin Flipperflowchart. | WD 


INPUT 

HOW MANY 

FLIPS? 
(X 


} 
<=> | FLIP COIN 
NO 
CLEAR TOTALS <> Ee PRINT HEADS 
j ტა NO : 


START PRINT ‘TAILS 
COUNT 


YES 
ADVA HEADS 
| NEN 


NO 


КЕНІ | ADVANCE COUNT 


ADVANCE NO 
U TAILS COUNT 
PRINT YES % 
RETURN TO a TOTALS 
TARTING POINT 


Standard BASIC 


CLS: PRINT" ", “COIN FLIPPER 

PRINT“HOW MANY TIMES SHALLI FLIP THAT OLD COIN”; 
INPUT X 

IF X=1 GOTO 115 

LETH = 6: LET T=9 

PRINT: PRINT: FOR Y=1 TO X 

LET C=INT(RND(1)*2)+1 

IF C=2 GOTO 100 

LET H=H+1:PRINT“H”; 

NEXT Y:PRINT: PRINT 

PRINT “”, “TOTALS” 

LET A=(H/X)*100: LET B=(T/X)*100: LET D=A+B 
PRINT"HEADS", H, A;“%” 

PRINT“TAILS”, T,B;“%” 

PRINT“ ii ” D;“%” 

IF D=199 СОТО 15 

PRINT"ITHINKIGOOFED" 

END 


100 PRINT“T”; 

105 LETT=T+1 

114 СОТО 55 

115 LETC=INT(RND(1)*2)+1 
120 1ЕС=1РЕМТ“НЕАО5” 
125 IF C=2 PRINT “TAILS” 
136 СОТО15 


TRS-80 BASIC 
10 CLS:P.:“”,“COIN FLIPPER” 
15 IN."HOW MANY TIMES SHALL I FLIP THAT OLD COIN”; X 
20 IFX=1G.115 
25 H=0:T=0:P.:P.:F.Y=1TOX:C=RND(2) 
30 IFC=2G.100 
40 H=H+1:P."H”; 
50 N.Y:P.:P.:P."”, “TOTALS” 
60 A=(H/X)*100:B=(T/X)*100:D=A+B 
70 P.“HEADS", H A; 90": P. “TAILS”, T, B; “90” 
80 ი, OO” 
85 IFD=100G.15 
90 P."ITHINKIGOOFED.":END 
100 T=T+1:P.“T”; 


7110 6.50 


115 C-RND(2XIF C=1P.“HEADS” 
120 IFC-2P."TAILS" 

130 G.15 

Summary Of Variables Used 


A %of Heads 
В %of Tails 

C Result of current flip 
О A+B (shouldbe 100) 
H Numberof Heads 

Т Numberof Tails 

X Numberofflips 

Y Loopcount 

Sample Run 


COIN FLIPPER 


DA e Y TIMESSHALLI FLIP THAT OLD COIN? 1 
EAD 
HOW MANY TIMESSHALLIFLIP THAT OLD COIN? 25 


HTTHTHHTTTHTHTTH 
THTTTHTHH 
TOTALS 
HEADS 11 44% 
TAILS 14 56% 
100% 
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Favorite Song 
Surprise Poem 


These two programs are simply computerized gags. Try 


entering them without thinking about what they'll do. Then you can 
spring them on your friends. 


Since there is no randomness in these programs, it would spoil 


the joke to include sample runs here. 


Once you've run these programs a couple times you should be 


able to work up similar gag programs of your own. 


Favorite Song Standard BASIC 


10 


LET Y=1:LET N=0:PRINT: PRINT: PRINT: PRINT 
PRINT: PRINT: “WOULD YOU LIKE ME TO DO MY FAVORITE 
SONG"; 

INPUTX 

IF X=Y THEN GOTO 100 

LET A= INT(RND(0)*300)4-1 
FORB=1TOA 

LET C=INT(RND(0)*300)+1 

FOR D=1 TO C:NEXT D 

PRINT“ FINK! "; 

LET E=INT(RND(0)*20)+1 

FOR F=1 TO E:PRINT“”; 

NEXT F:NEXT B 

END 

IF X=1 THEN PRINT“ONE BOTTLE”; 
IF X>1 THEN PRINT X;" BOTTLES”; 
RETURN 

PRINT“OF BEER”; 

RETURN 

FOR A=1 TO 30:PRINT: NEXT A 
PRINT *","OOOHHH...": PRINT: PRINT: PRINT 
PRINT: FOR A=1 TO 400:NEXT A 

LET X=99 

FOR A=1 TO 20:PRINT:NEXTA 

FOR A=1T0333:NEXTA 

GOSUB 70 

GOSUB 85 

GOSUB 190 

PRINT: FOR А=1 ТО 270:МЕХТА 
GOSUB 70 

GOSUB 85 


126 PRINT 

128 PRINT 

130 FORA=1T0300:NEXTA 

132 PRINT"IF ONE OF THOSE BOTTLES SHOULD HAPPEN 
FALL" 

134 PRINT:FOR A=1TO 250:NEXT A 

136 LETX-X-1 

138 IF X=0 THEN GOTO 200 

140 GOSUB 70 

142 GOSUB85 

144 GOSUB 190 

146 FORA=1T0777:NEXTA 

150 PRINT:PRINT:PRINT 

155 PRINT:PRINT:PRINT 

160 СОТО 112 

190 PRINT"ON THE WALL” 

195 RETURN 


200 PRINT“NO MORE BOTTLES”; 
205 GOSUB85 


210 GOSUB 190 
215 FORA=1T0999:NEXT А 


220 PRINT:PRINT:PRINT 

225 PRINT:PRINT:PRINT 

230 PRINT"WANT ME TO DOIT AGAIN"; 
235 GOTO12 


TRS-80 BASIC 
55 CLS:Y=1:N=0:P.:P.:P. 
10 IN."WOULD YOU LIKE ME TO DO MY FAVORITE SONG”;x 
15 IFX=YG.100 
20 C=RND(300):F.D=1TOC:A=RND(300):F.B=1TOA 
25 N.B:P.“ FINK! ”;:E=RND(20):F.B=1TOE:P.“”s 
30 N.B:N.D:END 
70 IFX=1P.“ONE BOTTLE”; 
75 IFX>1P.X;“ BOTTLES”; 
80 RET. 
85 P.“OFBEER”;: RET. 
100 F.A=1TO30:P.:N.A:P.“”,“OOOHHH...”:P.:P.:P. 
105 F.A=1T0400:N.A:X=99 
110 CLS:P.:P.:P. 
115 F.A=1T0333:N.A:GOS.70:GOS.85:GOS. 190:P. 
120 F.A-1TO270:N. A:GOS.70:GOS.85:P.:P. 
125 F.A=1T0300:N.A:P.“IF ONE OF THOSE BOTTLES 
130 P."SHOULDHAPPEN TO FALL”:P.:F.A=1T0250 
135 N.A:X-X- LIF X=0G.200 
140 GOS.70:GOS.85:GO08S.190:F. AZ1TO777:N. A 


TO 
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145 P.:P.:P.:P.:P.:G.115 
190 P."ON THE WALL’ :RET. 
200 P."NOMORE BOTTLES ”;:GOS.85:GOS. 164 
205 F.A=1TO999:N.A;P.:P.:P.:P.:P. 
210 IN."WANT ME TO DOIT AGAIN”; X 
215 6.15 
Surprise Poem Standard BASIC 
5 FORX-1TO30 

10 PRINT:NEXT X 

12 GOSUB 315 

14 GOSUB 225 

16 GOSUB255 

17 GOSUB 320 

18 GOSUB 280 

19 GOSUB 220 

20 GOSUB 320 

21 GOSUB 295 

22 GOSUB 320 

24 GOSUB 285 

26 GOSUB 320 

28 GOSUB 270 

30 GOSUB 320 

32 GOSUB 260 

34 GOSUB315 

36 PRINT:PRINT 

38 GOSUB 320 

40 GOSUB 225 

42 GOSUB 320 

44 GOSUB 245 

50 GOSUB 320 

52 GOSUB 225 

54 PRINT“N";:GOSUB 320 

56 GOSUB 200 

58 GOSUB 320 

60 GOSUB 230 

62 GOSUB 320 

64 GOSUB 205 

66 GOSUB 320 

68 GOSUB215 

70 GOSUB 315 

72 PRINT:PRINT 

74 GOSUB 320 

76 PRINT" ",;GOSUB 225 

78 GOSUB 320 

80 GOSUB 250 

82 GOSUB 320 


GOSUB 300 
GOSUB 320 
GOSUB 325 
GOSUB 320 
GOSUB 290 
GOSUB 265 


PRINT" ”: GOSUB 320 
PRINT:GOSUB 320 


GOSUB 320 


PRINT" ",:GOSUB310 


GOSUB 320 
GOSUB 210 
GOSUB 240 
GOSUB 235 
GOSUB 320 
GOSUB 305 
GOSUB 265 
GOSUB 315 


PRINT:PRINT 


GOSUB 320 
GOSUB 225 
GOSUB 255 
GOSUB 320 
GOSUB 280 
GOSUB 220 
GOSUB 320 
GOSUB 295 
GOSUB 320 
GOSUB 285 
GOSUB 270 
GOSUB 320 
GOSUB 260 
GOSUB 315 


PRINT:PRINT 


GOSUB 320 


PRINT" ",:GOSUB 300 


GOSUB 275 
GOSUB 320 


PRINT: PRINT“”,“”, 


GOSUB 320 
GOSUB 300 
GOSUB 275 


PRINT“!”: PRINT 


GOSUB 315 
GOSUB 315 
END 


200 PRINT“ A”; 

202 RETURN 

205 PRINT"BEGE"; 

207 RETURN 

210 PRINT" BOW-”; 

212 RETURN 

215 PRINT" CAN”;:RETURN 
220 PRINT“EYE”;:RETURN 
225 PRINT“I”;: RETURN 
230 PRINT" GAR”;:RETURN 
235 PRINT"GED";: RETURN 
240 PRINT“LEG”;: RETURN 
245 PRINT“ LIVE”: RETURN 
250 PRINT“ LOVE”;: RETURN 
255 PRINT”M”;: RETURN 
260 PRINT“ MAN”;: RETURN 
265 PRINT"MIN" ;: RETURN 
270 PRINT“OR”;:RETURN 
275 PRINT“OT”;:RETURN 
280 PRINT" POP":RETURN 
285 PRINT" SAIL";:: RETURN 
290 PRINT“ SWIM”; КЕТСЕМ 
295 PRINT" THE ;: RETURN 
300 PRINT" TO”;:RETURN 
305 PRINT“ WI”: RETURN 
310 PRINT“ WITH”;: RETURN 
315 FOR X=1TO222 

317 NEXT X 

320 FORX=1TO55:NEXTX 
322 RETURN 

325 РАМТ“ СО”; КЕТОКМ 


TRS-80 BASIC 


5 CLS:P.:P.:P.:GOS.315 

10 GOS.225:GOS.255:GOS.320: GOS. 280:GOS.220:GOS.320: 
GOS.295:GOS.320 

15 GOS.285:GOS.270:GOS.320:GOS.260 

20 GOS.315:P.:P.:GOS.320:GOS.225:GOS.320 

25 GOS.245:GOS.320:GOS.225 

30 P.“N”;:GOS.320:GOS.200:GOS.320:GOS.230 

35 GOS.205:GOS.320:GOS.215:GOS.315:P.:P.:GOS.320 

40 P.“”,:GOS.225:GOS.320:GOS.250:GOS.320 

45 GOS.300:GOS.320:GOS.325:GOS.320:GOS.290:GOS. 265 

50 Р.“”;:С0$.320:Р.:С0$.320:60$.320 

55 P.“”,:GOS.310:GOS.320:GOS.210 

60 GOS.240:GOS.235:GOS.320:GOS. 305 
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GOS.265:GOS.315:P.:P.:GOS.320 
GOS. 225: GOS. 255:GOS.320: GOS.280: GOS.220: 
GOS. 320: GOS.295: GOS.320 

GOS. 285:GOS.270:GOS.320:GOS.260 
GOS. 315:P.:P.:GOS.320:P."”,:GOS.300 
GOS.275:GOS.320: P.: P." "," A 
GOS.320:GOS. 300:GOS. 275: P. შაია. 
GOS.315:G0S.315 

END | 

P." А”;: RET. 

Р.“ВЕСЕ”;: ВЕТ. 

Р.“ВО\/-”;: ВЕТ. 

P." CAN”;: RET. 

Р.“ЕУЕ”;: RET 

РР ВЕТ. 

P.“GAR”;: КЕТ. 

Р.“СЕО”;: ВЕТ. 

Р.“ГЕС”;: ВЕТ. 

ნ.“ LIVE”:: RET. 

P.“ LOVE”;: RET. 

P.“M";: ВЕТ. 

P.“MAN”;: RET. 

P.“MIN”;: RET. 

P.“OR";:RET. 

P.“OT”;: RET. 

P." POP”;: RET. 

P.“SAIL";: RET. 

Р.“ SWIM”;: RET. 

Р.“ТНЕ”:КЕТ. 

Р.“ТО”:ВЕТ. 

P." \УТ”;: ВЕТ. 

P.“WITH”;:RET. 

F.X=1TO222:N.X 
F.X=1TO55:N.X:RET. 

P.“GO”;: ВЕТ. 
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Tunesmith 


This program is a very simple random music composer. It 
prints out notes by their letter names, gives the note lengths 
(42,44, 4e, etc.), and indicates the overall dynamic level of the 
phrase. You may manually convert this information into standard 
musical notation to play it on any instrument you choose. 

While the notes are randomly selected, the selection process 
is weighted (steps 10 to 45) so that the phrase will tend to stay in 
the key of C. 

In all probability many of the phrases produced by this simple 
program won't sound very musical, but many are interesting, and 
some sound quite good. 

While this program is too simplistic to be of much use as a real 
compositional aid, it might suggest themes to a composer with a 
reluctant muse. Tunesmith (like all of these programs) is mostly 
intended for fun. 

See Fig. 4-2 for the sample run in standard musical notation 
and Fig. 4-3 for the flowchart. 


Standard BASIC 


10 DATA1,0,1,2,13,8,6,1,3,4 

15 DATA 1,0,5,6,7,1,8,10,13,6 

20 DATA1,13,8,12,10,11,1,9, 13,3 
25 DATA1,1,0,13,12,8,6,5,1,0 

30 ПАТА 5,13, 1,3,5,13,10,8,6, 1 
35 FORX-1TO50 

37 READQ 


Fig. 4-2. Tunesmith sample run in standard musical notation. 
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RUN 


SET WEIGHTING DATA 


SELECT DYNAMICS 


| FOR x 1108 


SELECT NOTE 


SELECT TIME VALUE 
Fig. 4-3. Tunesmithtlowchart, |  [__SELECTTE VALUE | 


ADVANCE X 


YES | 


INPUT NEXT LINE 
NEXT LINE 
OR END 


LET A(X)=Q 

NEXT X 

REM* DYNAMICS KEY * 

LET F=INT(RND(0)*7)+1 

IF Fz1 THEN PRINT"PP" 

IF F=2 THEN PRINT"P" 

IF F=3 THEN PRINT"MP" 

IF F=4 THEN PRINT"MF" 

IF F=5 THEN PRINT"MF" 

IF F=6 THEN PRINT"F" 

IF F=7 THEN PRINT"FF" 
PRINT 

FOR X=1TO8 

LET M=INT(RND(0)*50)+1 
LET Q=A(M) 

IF Q=0 THEN PRINT"REST ”; 
IF Q=1 THEN PRINT"C E: 
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120 
125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
200 
202 
205 
207 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 


260 
265 


270 
275 


IL Q=2 THEN PRINT“C# 7; 
IF Q=3 THEN PRINT"D ki 
IF Q=4 THEN PRINT“D# 7; 
IF Q=5 THEN PRINTE 7; 
IF Q=6 THEN PRINT“F 7; 
IL Q=7 THEN PRINT“F# 7; 
IF Q=8 THENPRINT“G 7”: 
IF Q=9 THEN PRINT“G# "5 
IF Q=10 THEN PRINT“A ”; 
IF Q=11 THEN PRINT“A# 7; 
IF Q=12 THEN PRINT “8. 7; 
IF Q=13 THEN PRINT“C 7; 
IF Q—0 THEN GOTO 195 

LET B=INT(RND(0)*10)+1 

IF B>7 THEN PRINT“-”; 
NEXT X 

PRINT: PRINT 

FOR X=1T08 

LET T=INT(RND(0)”9)+1 

IF T=1 THEN PRINT“1/16”; 
IF T=2 THEN PRINT“148 "; 
IF T=3 THEN PRINT% ”; 
IF T=4 THEN PRINT% ” 
IF T=5 THEN PRINT% 7”; 
IF T=6 THEN PRINT% ”; 
IF T=7 THEN PRINT“% 7: 
IF T=8 THEN PRINT“ 7; 
IF T=9 THEN PRINT“ 7; 
NEXT X 

PRINT: PRINT 


PRINT“TYPE 1 FOR NEXT LINE OR 2 TO END" 
INPUT H 


IF H=1 THEN GOTO 100 
END 


TRS-80 BASIC 


10 
15 
20 


20 
30 


35 


DATA 1,0,1,2,13,8,6,1,3,4 
DATA 1,0,5,6,7, 1,8, 10, 13,6 
DATA 1, 13,8, 12,10, 11,1,9, 13,3 
DATA 1,1,0, 13, 12,8,6,5,1,0 
DATA 65, 13, 1,3,5, 13, 10,8,6, 1 
F.X=1T050:READ Q 


40 A(X)-Q:N.X 

50 (CLS: PP. 

55 F=RND(7):IF F=1P.“PP” 
60 IF F=2P.“P” 

65 IF F=3P.“MP” 


200 


70 IFF=4P.“MF” 

75 IFF=5P.“MF” 

80 IFF-P."F" 

85 IFF-7P."FF" 

90 P. 
100 F.X=1T08:M=RND(50) 
110 Q=A(M);IFQ=0P.“REST”; 
115 IFOSIP,"C" 
120 IFQ=2P.“C#”; 
125 IFQ=3P.“D”; 
130 IFQ=4P.“D#”; 
135 IFQ=5P.“E”; 
140 IFQ-6P."F 
145 IFQ=TP.“F#”; 
150 IFQ=8P.“G”: 
155 IFQ=9P.“G#”; 
160 IFQ=10P.“A”; 
165 IFQ-11P."Af£" 
170 IFQ=12P.“B”; 
175 IFQ-13P."C' 5 
180 IFQ=0G. 195 
185 B=RND(10) 
190 IFB>7P.“—”: 
195 NEXTX 
200 P.:P.:F.X=1T08 
205 T=RND(9):IF T=1P.“1/16”; 
210 IF T=2P.“%”; 
215 IF T=3P.“%”: 
220 IFT=4P.“%”s 
225 IF T=5P.“%”; 
230 IF T=6P.“ %2”; 
235 IF T=7P.“%”: 
240 IF T=8P,“%”s 
245 ІЕТ-9Р.“1»; 
250 N.X:P.:P. 


255 IN.“TYPE 1 FOR NEXT LINE OR2 TO END”;H 


260 IFH=1G.100 

265 END 

Sample Run 

MF 

CA—FFC—FCC 

ии %1/161/16%% 

TYPE 1FORNEXTLINEOR2TOEND 21 
CC—GF#C'RESTEE 

Yo V4 Ye 1⁄4 0 1 A 1/16 

TYPE 1 FORNEXTLINEOR2TOEND ?2 
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Chapter 5 
Helpful Programs 


This chapter includes four programs which are not exactly games. 
They are helpful programs, designed to be of use to you in many 
different ways. 

BINARY/DECIMAL 

You probably know that computers use a different system of 
counting than we do. Our system is called the decimal system 
because it has ten digits(1,2,3,4,5,6,7,8,9, and 0). The computer, 
on the other hand, uses the binary system, which has only two 
digits (1 and 0). 

The following program allows you to convert from one system 
to the other, in either direction. It should be noted that 4095 is the 
largest decimal number this program can convert. See Fig. 5-1 for 
the flowchart. Here are some refreshers on how the binary system 
works. 


ADDITION 
0 0 1 1 
+0 +1 +0 +1 
0 1 1 10 
BINARY DECIMAL EQUIVALENT 
1 
10 
11 
100 
101 
110 
111 


“1M Ол C5 м н 
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1001 

1010 10 
1011 11 
1100 12 
1101 13 
1110 14 
1111 15 
10000 16 


DECIMAL TO 
BINARY 


BINARY TO 
DECIMAL 


ENTER NUMBER 


SET VARIABLES 


1INNEXT 
HIGHEST 
POSITION? 


INSERTO 


RESETTO 
BEGINNING 


Fig. 5-1. Binary/Decimal Flowchart. 
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Standard BASIC 


ГЕТВ=1 

LET D=2 

PRINT"ENTER В TO CONVERT FROM BINARY ТО DECI- 
MAL," 

PRINT"OR D TO CONVERT FROM DECIMAL TO BINARY"; 
INPUT A 

IF A=2 THEN GOTO 200 

PRINT"ENTER YOUR BINARY NUMBER”; 
INPUTN 

IF«1THEN GOTO 170 

LET N=INT(N) 

LET C=0.5 

LET E=0 

LET C=C*2 

IF N=0 THEN GOTO 150 

LET N=N/10 

LET MzN-INT(N) 

LET N=INT(N) 

IF M=0.1 THEN LET E=E+C 

IF M>0.1 THEN GOTO 190 

GOTO 80 

PRINT E 

GOTO 10 

PRINT"THE NUMBER MUST BE POSITIVE AND GREATER 
THAN 1” 

GOTO 10 

PRINT "THIS NUMBER IS NOT IN BINARY FORM" 
GOTO 10 

PRINT"ENTER YOUR DECIMAL NUMBER”; 
INPUT N 

IF N<1G.170 

LET N=INT(N) 

IF N>4095 THEN GOTO 330 

LET E=0 

LET C=2048 

LET M=INT(N/C) 

IF M=1THEN GOSUB 300 

IF N=0 THEN GOTO 150 

LET C=C/2 

IF C<1 THEN GOTO 150 

LET E=E*10 

GOTO 240 

LET E=E+1 

LETN=N-M 


320 
330 


340 


RETURN 
PRINT"THE PROGRAM CAN ONLY HANDLE NUMBERS UP 
TO 4095" 
GOTO 10 


TRS-80 BASIC 


B=1:D=2 

P.“ENTER B TO CONVERT FROM BINARY TO DECIMAL, OR 
D" 

P."TO CONVERT FROM DECIMAL TO BINARY”; А 
IF А=2 С. 200 

IN."ENTER YOUR BINARY NUMBER ”; N 

IF N<1G. 170 

N=INT(N) 

C=0.5:E=0 

C=C*2 

IF N=0G. 150 

N=N/10 

M=N-INT (N):N=INT (N) 

IF M=.1 THEN E=E+C 

IF M>.1G. 190 

G. 80 

P.E 

G. 10 

P.“THE NUMBER MUST BE POSITIVE AND GREATER THAN 
1” 

C. 10 

P."THIS NUMBERIS NOTIN BINARY FORM":G.10 
IN.“ENTER YOUR DECIMALNUMBER”;N 

If N<1G. 170 

N=INT(N) 

IF M>4095 С. 330 

E=0:C=2048 

M=INT(N/C) 

IF M=1 GOS. 300 

IF N=0G. 150 

C=C/2 

IF C<1G. 150 

E=E*10 

G. 240 

E=E+1 

N=N—M 

RET. 

P.“THIS PROGRAM CAN ONLY HANDLE NUMBERS UP TO 
4095” 

G.10 
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Summary of Variables Used 


MODE CHOICE 

BINARY 

PLACE VALUE 

DECIMAL 

CONVERTED NUMBER 
INTERMEDIATE VARIABLE 
NUMBER TO BE CONVERTED 


ZuEUOCOU» 


Sample Run 


ENTER B TO CONVERT FROM BINARY TO DECIMAL, ORD 
TO CONVERT FROM DECIMAL TO BINARY? D 

ENTER YOUR DECIMAL NUMBER? 123 

1111011 

ENTER B TO CONVERT FROM BINARY TO DECIMAL, ORD 
TO CONVERT FROM DECIMAL TO BINARY? B 

ENTER YOUR BINARY NUMBER? 123 

THIS NUMBER IS NOT IN BINARY FORM 

ENTER B TO CONVERT FROM BINARY TO DECIMAL, ORD 
TO CONVERT FROM DECIMAL TO BINARY? B 

ENTER YOUR BINARY NUMBER? 1010101 

85 

ENTER B TO CONVERT FROM BINARY TO DECIMAL, ORD 
TO CONVERT FROM DECIMAL TO BINARY? B 

ENTER YOUR BINARY NUMBER? 111 


7 

ENTER B TO CONVERT FROM BINARY TO DECIMAL, ORD 
TO CONVERT FROM DECIMAL TO BINARY? D 

ENTER YOUR DECIMAL NUMBER? 17 

10001 
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Day ofthe Week 


Sometimes it's interesting to know on what day of the week 
some specific date fell. You could thumb your way through an old 
calendar, but this program will quickly calculate the day of the 
week for you. 

The dates used in the sample run are July 31, 1980 (7/31/ 
1980), April 17, 1954 (4/17/1954), and August 22, 1734 (8/22/ 
1734). Of course you can also use dates which extend into the 
future. 

Note that this program has no provisions for validating your 
entries. It will accept 34/952/21212 as a date, but of course the 


ADJUST MONTH 


Fig. 5-2. Flowchartfor Day ofthe Week. | 


ADJUST YEAR 


MAIN 
CALCULATION 


YES 


PRINT DAY 
OF THE WEEK 
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result will be utterly meaningless. So double-check your entries to 
avoid getting a wrong answer. 
See Fig. 5-2for the flowchart. 


Standard BASIC 


10 PRINT"","DAY OF THE WEEK” 

15 PRINT 

20 PRINT"ENTER THE MONTH NUMBER — 1-12”: 

25 INPUTM 

30 LETM=M-2 

40 IFM=OTHEN LET Mz 12 

50 ІЕМ--1ТНЕМІЕТМ-11 

60 PRINT"ENTER THE DAY OF THE MONTH”: 

65 INPUTD 

70 PRINT"ENTER THE YEAR"; 

75 INPUT Y 

80 IFM>10THENLET Y=Y-1 

85 LET X=INT(Y/100) 

90 LET Y=(Y—X)*100 

95 LET A=INT(D+(2.6*M-0.2)) 
100 LET A=A+INT(Y/4+Y) 
110 LETA=A+INT((X/4)-2*X) 
120 IFA«0 THEN GOTO 240 
130 LET A=A/7 
135 LET A=A-INT(A)*7 
140 LETA=INT(A) 
150 PRINT"THAT DATE FELL ОМА”: 
160 IFA=0 THEN PRINT"SUNDAY" 
170 IFA=1 THEN PRINT'MONDAY" 
180 IF A=2 THEN PRINT"TUESDAY" 
190 IL ტ=3 THEN PRINT"WEDNESDAY" 
200 IF A=4 THEN PRINT"THURSDAY" 
210 IF A=5 THEN PRINT"FRIDAY" 
220 IF A=6 THEN PRINT"SATURDAY" 
230 END 
240 LETA=A+7 
250 GOTO 120 


TRS-80 BASIC 


10 P."""DAYOF THE WEEK": P. 

20 IN."ENTER THE MONTH NUMBER — 1-12"; M 
30 MzM-2 

40 IFM=0THEN M=12 

90 IF M=—1THENM=11 


60 IN.“ENTER THE DAY OF THE MONTH”;D 
70 IN."ENTER THE YEAR"; Y 
80 IF M>10 THEN Y-Y-1 
90 X=INT(Y/100): Y=(Y-X)*100 
100 “A=INT(D+(2.6“M-.2)+INT(Y/4+Y) 
110 A-A-INT((X/4)-2*X) 
120 IFA«0G.240 
130 A=A/7:A=A-INT(A)*7 
140 A=INT(A) 
150 P.“THAT DATE FELL ON А”; 
160 IFA=OTHENP.“SUNDAY” 
170 IFA-1THENP."MONDAY" 
180 IFA-Z2THENP."TUESDAY" 
190 IFA=3THENP.“WEDNESDAY” 
200 IFA=4THENP.“THURSDAY” 
210 IF A=5 THEN P.“FRIDAY” 
220 IF A=6 THEN P."SATURDAY" 
230 END 
240 A=A+7:G.120 
Summary of Variables Used 


А Day ofthe week X Century 
D Date Y Year 
M Month 
Sample Run 
RUN 
DAY OF THE WEEK 


ENTER THE MONTH NUMBER — 1-12? 7 
ENTER THE DAY OF THE MONTH? 31 
ENTER THE YEAR? 1980 
THAT DATE FELLON A THURSDAY 
READY 
RUN 
DAY OF THE WEEK 
ENTER THE MONTH NUMBER — 1-12? 4 
ENTER THE DAY OF THE MONTH? 17 
ENTER THE YEAR? 1954 
THAT DATE FELL ON ASATURDAY 
READY 
RUN 
DAY OF THE WEEK 
ENTER THE MONTH NUMBER — 1-12? 8 
ENTER THE DAY OF THE MONTH? 22 
ENTER THE YEAR? 1734 
THAT DATE FELL ON ASUNDAY 
READY 
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Ohm's Law 


This one is a bit off the main path as far as this book goes, but 
it's interesting to try entering various variables to see how voltage, 
current, resistance and power interact in an electrical circuit. Just 
pull numbers out of the air and then study the results. 

Most experimenters are at least vaguely familiar with Ohm's 
Law (Voltage equals current times resistance), but by running a 
number of combinations through this program you can really get a 
solidfeelfor it. 

See Fig. 5-3for the flowchart. 

Ф 


Standard BASIC 


5 REM"*OHNM'SLAW ** 
10 LETO=1 
15 LETV=2 
20 LETC-3 
25 PRINT"DO YOU NEED TO FIND OHMS, VOLTS, OR CUR- 
RENT"; 
30 INPUTX 
35 IFX=O THEN GOTO 70 
40 IFX-V THEN GOTO 130 
50 IFX-CTHEN СОТО 160 
60 GOTO20 
70 PRINT"VOLTS"; 
75 INPUTE 
80 GOSUB 220 
85 LETR-E/I 
90 LET P=E*l 
95 PRINT“RESISTANCEIS”;R;“ OHMS (OR”; 
100 LETR=R/1000 
105 PRINT IL“ KILOHMS" 
110 PRINT “POWERIS”;P;“ WATTS” 
120 GOTO10 
130 GOSUB 220 
135 GOSUB 260 
140 LETE=I*R 
145 LETP=FTR 
150 PRINT“VOLTAGEIS”;E;“ VOLTS” 
155 GOTO110 
160 PRINT“VOLTS”; 
165 INPUTE 
170 GOSUB 260 
175 LETI=E/R 


180 PRINT"CURRENTIS 5L" AMPS (OR; 

185 LETI-I*1000 

190 PRINT Е“ MILLIAMPS)” 

200 GOTO110 

220 LETA=1 

225 LETM=1000 

230 PRINT"IS CURRENT IN AMPS OR MILLIAMPS”; 
235 INPUTX 


YES 
{ VOLTS? 
NO ; 


YES CURRENT? 
URRENT «s | 
€ > RESISTANCE 


YES 
VOLTAGE 
VOLTS? 
POWER 


$ @ 


CURRENT 


POWER 


Fig. 5-3. Flowchartfor Ohm’ s Law. 
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240 PRINT “CURRENT”; 
245 INPUTI 

250 LETI=I/X 

255 RETURN 

260 LETR=1 

270 LETK-1000 

280 PRINT"IS RESISTANCE IN OHMS OR KILOHMS"; 
290 INPUT X 

300 PRINT“RESISTANCE”; 
310 INPUTR 

320 LET R=R*X 

330 RETURN 


TRS-80 BASIC 
10 O=1:V=2:C=3 
20 IN.“DO YOU NEED TO FIND OHMS, VOLTS, OR CURRENT”;X 
30 IFX=OG.70 
40 IFX=VG.130 
50 IFX=CG.160 
60 G.20 
70 IN.“VOLTS';E 
80 GOS.220 
90 В=ИЕ:Р=Е*1 
100 “RESISTANCE IS”;R;“OHMS (OR”; 
105 R=R/1000:P.R;“ KILOHMS)" 
110 P.“POWERIS”;P;“ WATTS” 
120 G.10 
130 GOS. 220 
135 GOS. 260 
140 E=I*R:P=I*I*R 
145 P.“VOLTAGEIS”;E;“ VOLTS” 
150 G.110 
160 IN.“VOLTS’;E 
165 GOS. 260 
170 P."CURRENTIS 5L; AMPS (OR”; 
180 1=1*1000 
190 Р.Г“ MILLIAMPS)” 
200 С. 110 
220 A=1:M=1000 
230 IN."IS CURRENT IN AMPS OR MILLIAMPS"; X 
240 IN.“CURRENT”;I 
250 I=I/X 
255 RET. 
260 R=1:K=1000 
270 IN.“ISRESISTANCE IN OHMS OR KILOHMS”;X 
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280 IN."RESISTANCE' SR 
290 R=R*X 
300 RET. 


Summary of Variables Used 


AMPS 

CURRENT 
VOLTAGE VALUE 
CURRENT VALUE 
KILOHMS 
MILLIAMPS 
OHMS 

POWER VALUE 
RESISTANCE VALUE 
VOLTAGE 

INPUT VARIABLE 


читов с>» 


Sample Run 


DO YOU NEED TO FIND OHMS, VOLTS, OR CURRENT? OHMS 
VOLTS?9 · 

IS CURRENT IN AMPS OR MILLIAMPS? AMPS 

CURRENT? 1.5 

RESISTANCE IS 6 OHMS (OR 0.0006 KILOHMS) 

POWER IS 13.5 WATTS 

DO YOU NEED TO FIND OHMS, VOLTS, OR CURRENT? OHMS 
VOLTS? 130 

IS CURRENT IN AMPS OR MILLIAMPS? MILLIAMPS 
CURRENT? 50 

RESISTANCE IS 2700 OHMS (OR 2.7 KILOHMS) 

POWERIS6.75 WATTS 

DO YOU NEED TO FIND OHMS, VOLTS, OR CURRENT? CURRENT 
VOLTS? 87 

IS RESISTANCE IN OHMS OR KILOHMS? KILOHMS 
RESISTANCE? 4.7 

CURRENT IS 0.0185106 AMPS (OR 18.5106 MILLIAMPS) 
POWER 15 1.6104255 WATTS 

DO YOU NEED TO FIND OHMS, VOLTS, OR CURRENT? VOLTS 
IS CURRENT IN AMPS OR MILLIAMPS? AMPS 

CURRENT? 15 

IS RESISTANCE IN OHMS OR KILOHMS? OHMS 
RESISTANCE? 180 

VOLTAGE 15 2700 VOLTS 

POWERIS 40500 WATTS 
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Fahrenheit/Celsius 


Here is another program that could be used for immediately 
practical purposes, i.e., when you need to convert a specific 
temperature from Fahrenheit to Celsius, or vice versa. But I think 
it can be better used with a string of randomly selected values so 
you can really get a solid feel of the relationship of Fahrenheit to 
Celsius. The U.S. seems to be slowing in the process of converting 
to metric, but it's still a good idea to get comfortable with the 
metric standards. 

You can devise similar programs for converting inches/feet/ 
miles to centimeters/meters/kilometers, pints/quarts/gallons to 
liters, ounces/pounds/tons to grams and kilograms, and so forth. 

See Fig. 5-4 for the flowchart. 


Standard BASIC 


10 LETA=1 

15 LETB=2 

20 IN."A—FAHRENHEIT TO CELCIUS OR B- CELSIUS TO" 
25 PRINT “FAHRENHEIT”; 

30 INPUTM 

40 IFM=2THENGOTO 100 

50 PRINT"TEMPERATURE IN FAHRENHEIT’; 

55 INPUTT 

60 ТЕТХ=(5/9)*(Т-32) 

70 PRINT “TEMPERATURE IN CELSIUSIS”;X;“ DEGREES" 
80 GOTO10 

100 PRINT“TEMPERATURE IN CELSIUS”; 

110 INPUTT 

120 LET X=(9/5)*T+32 

130 PRINT“TEMPERATURE IN FAHRENHEIT IS”;X; “DEGREES” 
140 GOTO10 


TRS-80 BASIC 


10 A=1:B=2 

20 P.“A—FAHRENHEIT TO CELSIUS OR B- CELSIUS TO" 
30 IN.“FAHRENHEIT”’;M 

40 IFM=2G. 100 

50 IN.“TEMPERATURE IN FAHRENHEIT';T 

60 X=(5/9)*(T-32) 

70 P.“TEMPERATURE IN CELSIUSIS”;X;” DEGREES" 

80 G.10 


100 IN.“TEMPERATURE IN CELSIUS”: T 

110 X=(9/5)*T+32 

120 P."TEMPERATURE IN FAHRENHEIT IS"; X;“ DEGREES" 
130 G.10 


Summary Of Variables Used 


А FAHRENHEIT TO CELSIUS 

В CELSIUS TO FAHRENHEIT 

M MODESELECTION 

T INPUTTEMPERATURE 

X CONVERTED TEMPERATURE 


FAHRENHEIT TO CELSIUS TO 
CELSIUS FAHRENHEIT 


CONVERSION CONVERSION 
PRINT RESULT PRINT RESULT 


Fig. 5-4. Flowchart for Fahrenheit/Celsius. 
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Sample Вип 


А — FAHRENHEIT TO CELSIUS OR B — CELSIUS TO 
FAHRENHEIT? A 

TEMPERATURE IN FAHRENHEIT? 72 

TEMPERATURE IN CELSIUS IS 22.222222 DEGREES 

A — FAHRENHEIT TO CELSIUS OR B — CELSIUS TO 
FAHRENHEIT? B 

TEMPERATURE IN CELSIUS? 0 

TEMPERATURE IN FAHRENHEIT IS 32 DEGREES 

A — FAHRENHEIT TO CELSIUS OR B — CELSIUS TO 
FAHRENHEIT? B 

TEMPERATURE IN CELSIUS? 32 

TEMPERATURE IN FAHRENHEIT IS 89.6 DEGREES 

A — FAHRENHEIT TO CELSIUS OR B — CELSIUS TO 
FAHRENHEIT? A 

TEMPERATURE IN FAHRENHEIT? —15 

TEMPERATURE IN CELSIUSIS —26.111111111 DEGREES 

A — FAHRENHEIT TO CELSIUS OR B CELSIUS TO FAHRENHEIT? B 
TEMPERATURE IN CELSIUS?- 15 

TEMPERATURE IN FAHRENHEIT IS 5 DEGREES 
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Appendix: 
Notes on 
Programming 
in BASIC 


BASIC is one of the easiest computer languages to learn because the 
commands are in English, or they're straightforward abbreviations. It's 
also fairly standardized, so a program written on one computer can usually 
be easily translated for use on another manufacturer's unit. There are 
slight variations from brand to brand, but they are usually quite minor. 

In this Appendix, commands used in the programs contained in this 
book will be explained. Alternative forms used on some of the more 
popular models now on the market will also be given. By comparing the 
following list of commands with the commands given on the manual for 
your computer, you should have no difficulty adapting the programs for use 
on your own machine. In most cases the commands will be identical, so you 
can enter them directly. 

There are a number of other commands available in most versions of 
BASIC, but I have listed here the most commonly used. The programs in 
this book are limited to these common commands so they can be run on 
almost any computer. 

In some cases you will be able to substitute a number of program 
steps with a single special-purpose command. This option is available on 
some advanced computers. You should always feel quite free to modify the 
programs any Way you like and to take advantage of any special functions of 
your own computer. 

Note that the games in this book don't make any use of graphics. This 
is because graphic capabilities are quite unstandardized from computer to 
computer. To avoid confusion and translation difficulties, I decided to 
forego graphics in these programs. Naturally, you can add any graphics you 
please. 


BASIC COMMANDS 


T Addition. This symbol 1$ used exactly the 
way it should be in algebra. For example, 
the statement LET C=A+B will add A and B 
and identify the sumas C. 
— Subtraction. Example; LET С=А- B. See + 
Multiplication. This symbol must be used 
when multiplication is desired. C=AB is 
acceptable in algebra, but not in BASIC. If 
you omit the symbol, the program will bomb 


ж 
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A v l| — 


AN 
ა. 


#(X) 


А$ 
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out. Anasterisk is used instead of the more 
familiar X to avoid confusion with the 

variable. Example; C=A*B 

Division. Example; C=A/B 

Equals. See LET andIF... THEN... 
Greater than. SeeIF... THEN... 

Less than. SeeIF... THEN... 
Parentheses are used primarily the way they 
are in algebra, to alter the order of 
mathematical operations. For example 
2*3+4=10, but 2*(3+4)=14. Note That 2(3 +4) 
is not acceptable toa computer. It must be 
written as 2* (3+4). 

A colon separates two commands on a single 
line. For example, LET A=5: LET B=7. Not 
all computers have this capability. 
Asemi-colon allows you to combine text 
and/or variable values on a single line 

with a PRINT command. For example, if X 


= 5, the command PRINT “THE VALUE OF X IS 


X would produce this result — 

THE VALUE OF XIS 5 
See also PRINT 
А comma allows you to combine text 
and/or variables on a single line 
with a PRINT command, but they will 
separated by a space. For example, if 
X=5, the command PRINT “THE VALUE OF X 
IS", X would produce this result— 

THE VALUE OF X IS 5 
А comma can also be used on most computers 
to separate variables. For example, INPUT 
A, B. The input data must also be set off 
by commas. 
See alsoINPUT 


see also PRINT 
Array location number X. Xan bea variable, 


or a fixed numeral. 

The array can give you a large supply of 
variables in addition to the 26 letters of 

the alphabet. The size and number of arrays 
varies from computer to computer. Only one 
array is usedin the programs in this book. 

A string variable. This allows the computer 

to recall up to sixteen (typically) characters. 

For example, if A$= HELLO, РАМТ A$, А%,Аф 
would produce this result: 


ABS(X) 


CLE 
CLS 


END 


E+ 


HELLO HELLO HELLO 
While many computers offer a number of 
string variables, only A$ and B$ are used 


in these programs. Note that a space counts as a 


character in a string variable. That is , “JOHN DOE” is 


considered to have eight characters. 

This produces the abolute value of X (or 
any variable. The absolute value is always 
positive. If X is positive then ABS(X) will 
equal X. If X is negative, the signis 


reversed. For example, ABS(5)=5, ABS(—7)= 


7. 
Clear program. See NEW 

Clear screen. This erases everything 
displayed on the video terminal, and resets 
the pointer to the top of the screen. This 
command sometimes varies on different 
computers. Оп the Apple II itis HOME, 
andonthe PET itis PRINT“ [w] " 

A number of computers don’t have а clear 
screen command that can be incorporated into 
the program. For these computers you can 
use the following sequence: 


— FORX=1TOY 
— PRINT 
— NEXTX 


Y is greater than the number of lines the 
video display will hold at the time. This 
method (which is used for the Standard BASIC 
versions throughout this book) will start 

the text scrolling up from the bottom of the 
screen, rather than starting at the top and 
working down. Each new line will push the 
previous lines up one. 

Exponential scientific notation. Often 
you need to work with numbers that are too 
large or too small to be dealt with 

directly. In these cases an exponent is 

used. An exponent tells you how many times 
to multiply (or divide if negative) the 
number by 10. For example, 1.568E+07= 
15,680,000. Standard algebraic notation 
would be 1.568 x 107 

This command tells the computer that the 
program is finished and it should stop. In 
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some cases this command is optional, but it 
is always necessary when subroutines follow 
the main body of the program. 

On some computers the command is STOP. 


FOR X=A TO B: NEXT X 
This is a loop counter. For example, FOR X 
= 1 TO 100: NEXT X will make the computer 
count from 1 to 100. In this form the 
command produces a timing delay. 
Another use is to insert a number of 
additional program steps between FOR X= 
A TO B and NEXT X for repeated execution. 
The abbreviated form for the TRS-80 is 
F.X=ATOB:N.X 
FOR X=A TOBSTEP С 
The step statement is used when you need 
to count by some interval other than one. 
A negative number can be used if A is larger 
than B. Example; FOR X=1TO11 STEP 2: PRINT 
NEXT X would result in the following: 
1 
3 
5 
7 
9 
11 
GOSUB Go to subroutine. This command must be 
followed by the line number where the 
subroutine begins. Subroutines are used 
when a number of steps are required at 
several points throughout a program. By 
using a subroutine rather than entering 
the steps separately each time, much memory 
space can be saved. A subroutine must end with 
the command RETURN to send the computer's pointer 
back to where it left off in the main program. The 
TRS-80 abbreviations are GOS. and RET. 
GOTO This command can send the program ahead or 
back to any program step. It must be 
followed by the appropriate line number. 
GOTO is most oftenused withan IF... THEN... 
test. The TRS-80 abbreviation is G. 


HOME Clears the display screen on APPLE II 
computers. See CLS 
IF... THEN... This statement is used to test and compare 


data. For example, IF X=Y THEN GOTO 200. 
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МРОТ 


INT(X) 


LET 


NEW 


If X does equal Y then the program will 
jump toline 200, ignoring any intermediate 
steps. If X does not equal Y the program 
will continue the next consecutive 
step. Theterm GOTO can be skipped on some 
computers. Others will allow you to leave 
out the word THEN. 
> or < can be used in place of = 
Another frequent form is IF X=Y THEN A=B. 
This works inthe same manner as above. 
This stops the program and signals the 
operator (usually with a question mark 
or some prompting symbol) to enter 
data. Generally a preceding PRINT command 
will specify what data is required. 
The INPUT command must be followed by 
a variable character that will take on 
the value of the inputed data. String 
variables can be used (see АФ). It can be 
abbreviated аз IN. onthe TRS-80. 
Some computers (including the TRS-80) will 
allow an implied PRINT command between the 
term INPUT and the variable. For example, 
INPUT “ENTER YOUR DATA”; X will appear on 
the display as: 

ENTER YOUR DATA? 
The sameresult can be achieved with two 
commands, i.e. PRINT“ENTER YOUR DATA”; 
:INPUT X Seealso, 
This command chops off any fractional 
portion of the variable's value, leaving 
only the integer. For example, INT(3.14) 
=3 
This command is used to assign values to 
variables. For examples, LET А=5, or LET 
Х=А +В. The order cannot be reversed. 
А + В = Xand5-A are not allowed. 
Many computers allow the LET to be left off 
and merely implied. The commands would 
thenbesimply A=5orX=A+B 
This commandis never used within a 
program. Itis used to clean an old 
program out of the computer's memory, 
and make it ready for a new program. 
Some computers use CLE or SCR for this 
command. 
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PRINT 


PRINTX 


PRINT “xxxxx” 


PRINT" ” 


КЕМ 


RETURN 


RND(X) 
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When used by itself the PRINT command prints 
a blank line. Or, if the preceding PRINT 
command ended with a comma or semi-colon, 
this command will start a new line. 
See also; and, 
When a PRINT command is followed by a 
variable, the numerical value of that 
variable will be printed. For example, 
LET X=5:PRINT X will result in 
5 
This command can also print the result of 
a mathematical operation. For example, 
PRINT 5-+3*(7-4) will result in 
14 

Ifa PRINT command is followed by any 
characters enclosed in quotes, whatever 
is in quotes will be printed. For 
example, PRINT “THIS IS AN EXAMPLE” will 
result in this display— 

THIS IS AN EXAMPLE 
This is the clear screen command for 
the PET computer. See CLS 
Remark. This command is ignored by the 
computer. It allows you to place 
explanatory notes at convenient places in 
a program 
This command must be used to end a 
subroutine. On the TRS-80 it can be 
abbreviated as RET. 
See GOSUB 
This command is used to generate a random 
number for adding an element of chance to 
games or probability studies. LET X= RND(0) 
produces a number between 0 and 1, for 
example, 0.5371. Some computers (such as the TRS-80) 
will allow you to directly produce larger 
random numbers. For example, X-RND(10) 
would produce an integer between one and 
ten, inclusive. Most computers, however, 
will only recognize RND(0). Higher numbers 
can be generated with a few additional 
commands. The random number can be multiplied 
by the largest number you want. LET X= 


$ 


'RND(0)*0 will generate numbers from 0.0001 


to 9.9999. By using the integer command 
(INT), you endup with random numbers between 


0 and 9, inclusive. Toavoid the possibility 
of a zero, just add one to whatever the random 
number might be. In other words, X=RND(10) 
is equivalent to LET X=INT(RND(0)*10)+1. 
A few computers (such as the PET) require 
ВМО), rather than RND(0). 

RUN This command is never used within a 
program. It is used to put the program 
into operation. There is usually a 
BREAK key to let you stop the computer 
in mid program 

SCR SCRUB program, or SCRATCH program. See 
NEW 

SGN(X) Reverse sign of variable in brackets. 
For example, LET X=— 5:SGN(X): PRINT X 

5 
LET Y =7:SGN(Y):PRINT Y 
—7 

SQR(X) Square X. That is, multiply the variable 
times itself. LET X=X*X would give the 
same result. 
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B 

Balancing the Scales 

sample run 

standard BASIC 

summary of variables used 

TRS-80 BASIC 
Binary/Decimal 

sample run 

standard BASIC 

summary of variables used 

TRS-80 BASIC 


Coin Flipper 
sample run 
standard BASIC 
summary of variables used 
TRS-80 BASIC 
Craps 
sample run 
standard BASIC 
summary of variables use 
TRS-80 BASIC 
Crops 
sample run 
standard BASIC 
summary of variables used 
TRS-80BASIC 


D 
Day ofthe Week 
sample run 
standard BASIC 
summary of variables used 
TRS-80 BASIC 


წ 

Fahrenheit/Celsius 

sample run 

standard BASIC 

summary of variables used 

TRS-80 BASIC 
Favorite Song 

standard BASIC 

TRS-80BASIC 
Freebish 

rules 

standard BASIC 

TRS-80BASIC 
Frustration vs. the Computer 

standard BASIC 

TRS-80 BASIC 


Galactic Search 
sample run 
standard BASIC 
summary of variables used 
TRS-80 BASIC 
Gambling Boxes 
sample run 
standard BASIC 
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summary of variables used 
TRS-80 BASIC 

GoFish 
sample run 
standard BASIC 
summary of variables used 
TRS-80 BASIC 

Guess the Variables 
samplerun 
standard BASIC 
summary oí variables used 
TRS-80BASIC 


Hangman 
sample run 
standard BASIC 
summary of variables used 
TRS-80 BASIC 
High Bid 
samplerun 
standard BASIC 
summary of variables used 
TRS-80 BASIC 
li, standard BASIC 
TRS-80 BASIC 
High/Low 
samplerun 
standard BASIC 
summary of variables used 
TRS-80 BASIC 


Lostin the Jungle 
sample run 
standard BASIC 
summary of variables used 
TRS-80 BASIC 


M 
Main Game Program 
sample run 
standard BASIC 
summary of variables used 
TRS-80 BASIC 
Memory Test 
standard BASIC 
summary of variables used 
TRS-80 BASIC 
Money Mad 
sample run 
standard BASIC 
TRS-80 BASIC 


0 
Ohm'sLaw 
sample run 
standard BASIC 
summary of variables used 
TRS-80 BASIC 


Р 
Passing Points 
sample run 
standard BASIC 
summary of variables used 
TRS-80BASIC 


Quiz Whiz 
sample run 
standard BASIC 
TRS-80 BASIC 
variables used 


Stack Cut 
sample run 
standard BASIC 
TRS-80BASIC 
variables used 

Surprise Poem 
standard BASIC 
TRS-80BASIC 


T 

The Computer vs. itself 
standard BASIC 
summary of variables used 
TRS-80BASIC 

There's Gold in 

Them There Skyscrapers 

sample run 
standard BASIC 
summary of variables used 
TRS-80BASIC 

Tic Tac Toe 
margin sample run 
margin summary of 

variables used 

standard BASIC 
TRS-80BASIC 

ToandFro 
sample run 
standard BASIC 
summary of variables used 
TRS-80BASIC 

Tunesmith 
sample run 
standard BASIC 
TRS-80 BASIC 

Two Man Frustration 
samplerun 
standard BASIC 
summary of variables used 
TRS-80 BASIC 


V 
What Comes Next 
sample run 
standard BASIC 
summary of variables used 
TRS-80BASIC 
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34 MORE Tested, 
Ready-To-Run Game Programs In BASIC 
by Delton T. Horn 


Who says computers are only for serious business? Theres а 
light side to your computer's personality, too . . . and here's the book 
that shows you justhow much fun it can really be! Includes a complete 
collection of games, gags, brain teasers, and “поп-датез”... even 
programs that entertain while they educate! In easy-to-read- -and-use 
format with lots of illustrations, flowcharts, and listings for each pro- 
gram in both standard BASIC and abbreviated BASIC using the Level 
| TRS-80 computer. 

Find one-player games ranging from Tic-Tac-Toe and Lost in the 
Jungle to the challenging Guess The Variables, Quiz Whiz, or Memory 
Test. Two-player games like Money Mad or Stack Cut can keep you 
and a friend occupied for hours .. . and there are even games you can 
watch the computer play against itself! Looking for something that's 
practical, but still entertaining? Try Binary Decimal. It tests your skills 
at converting numbers from one system to another, and is a must for 
anyone attempting to write their own programs. Day of the Week, 
Ohm's Law, and Fahrenheit/Celsius are other fun-but-practical 
exercises included in this upbead ideabook. 

Discover Frustration, a game so complex and challenging that 
there's a whole section detailing the strategies involved. Plus, there 
are lots of "non-games" . . . Coin Flipper, Surprise Poem, Favorite 
Song, or Tunesmith. An appendix gives you all the data you. need to 
understand the BASIC commands included in the various programs, 
and suggests alternative forms for computer models other than the 
TRS-80. Hints, too, on how to change and modify the programs to suit 
your own particular fancy. 

If you d like to put some fun-and-games into your computer's life, 
then this is a program guide you wont want to miss! 

Delton T. Horn is a field engineer and technician, and author of 
TAB's Electronic Music Synthesizers. 
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